Functions | |
c c array iend1 double precision & | array (fi0-ng:la0+ng,&fi1-ng:la1+ng) integer ic0 |
c c array iend1 double precision &ic1 iend1 do iend0 | write (6,*)"array[" |
Variables | |
c c | File |
c c | la0 |
c c | fi1 |
c c | la1 |
c c | ng |
c c & | ibeg0 |
c c | iend0 |
c c | ibeg1 |
c c | iend1 |
c c array | c |
c c array iend1 double precision &ic1 iend1 do | ic0 = ibeg0 |
c c array iend1 double precision &ic1 iend1 do iend0 | ic1 = ibeg1 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Initial value: ============================================================ implicit none integer fi0 |
|
|
|
|