Functions | |
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision & | flux (ilo0-flxgc0:ihi0+1+flxgc0) |
Variables | |
c c | File |
c c LLC c | Revision |
c c LLC c Jan c | Description |
c c LLC c Jan c LLC c | Revision |
c c LLC c Jan c LLC c Jan c | Description |
c c LLC c Jan c LLC c Jan c | ihi0 |
c c LLC c Jan c LLC c Jan c & | flxgc0 |
c c LLC c Jan c LLC c Jan c & | iface |
c c LLC c Jan c LLC c Jan c & | flux |
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer & | ilo0 |
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer | ihi0 |
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer & | flxgc0 |
c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & iface double precision& flux | ( | ilo0-flxgc0:ihi0+1+ | flxgc0 | ) |
c c LLC c Jan c Description |
c c LLC c Jan c LLC c Jan c fluxsum c ***********************************************************************implicit none c integer &iface double precision ic2 c c ***********************************************************************c ihi2 do ihi1 &iface double precision ic0 c c ***********************************************************************c ihi0 do ihi2 &iface double precision ic1 c c ***********************************************************************c ihi1 do ihi0 &iside double precision & flux |
c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer& ilo0 |
c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer ihi0 |
c c LLC c Jan c LLC c Jan c fluxsum c*********************************************************************** implicit none c integer & flxgc0 |