| File |
Line number |
Procedure |
Code |
|
./verification/flt_example/extra/cvprofiles.F |
182 |
NO PROCEDURE |
allocate (xpart(npart,icount)) |
|
./verification/flt_example/extra/cvprofiles.F |
197 |
NO PROCEDURE |
xpart(m,n) = spval |
|
./verification/flt_example/extra/cvprofiles.F |
280 |
NO PROCEDURE |
xpart(ip,np) = SNGL(tmp(3)) |
|
./verification/flt_example/extra/cvprofiles.F |
283 |
NO PROCEDURE |
xpart(ip,np) = SNGL(tmp(3))/1000. |
|
./verification/flt_example/extra/cvprofiles.F |
523 |
NO PROCEDURE |
call NCVPT(ncid, VARid, corner, edges, xpart, iret) |
|
./verification/flt_example/extra/cvprofiles.F |
66 |
NO PROCEDURE |
real, dimension(:,:), allocatable :: xpart,ypart,kpart,zeta |
|
./verification/flt_example/extra/write_float.F |
110 |
NO PROCEDURE |
xpart = xc(i) |
|
./verification/flt_example/extra/write_float.F |
117 |
NO PROCEDURE |
if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart, |
|
./verification/flt_example/extra/write_float.F |
137 |
NO PROCEDURE |
xpart = xc(i) |
|
./verification/flt_example/extra/write_float.F |
144 |
NO PROCEDURE |
if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart, |
|
./verification/flt_example/extra/write_float.F |
163 |
NO PROCEDURE |
xpart = xc(i) |
|
./verification/flt_example/extra/write_float.F |
170 |
NO PROCEDURE |
if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart, |
|
./verification/flt_example/extra/write_float.F |
185 |
NO PROCEDURE |
xpart = xc(i) |
|
./verification/flt_example/extra/write_float.F |
192 |
NO PROCEDURE |
if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart, |
|
./verification/flt_example/extra/write_float.F |
207 |
NO PROCEDURE |
xpart = 0. |
|
./verification/flt_example/extra/write_float.F |
215 |
NO PROCEDURE |
& write(1,rec=1) npart,tstart,xpart,ypart,kpart,kfloat,iup,itop,tend |
|
./verification/flt_example/extra/write_float.F |
3 |
NO PROCEDURE |
double precision npart,xpart,ypart,kpart,kfloat,iup,itop |
|
./verification/flt_example/extra/write_float.F |
59 |
NO PROCEDURE |
xpart = 0. |
|
./verification/flt_example/extra/write_float.F |
66 |
NO PROCEDURE |
if (flag) write(1,rec=1) npart,tstart,xpart,ypart, |
|
./verification/flt_example/extra/write_float.F |
88 |
NO PROCEDURE |
xpart = xc(i) |
|
./verification/flt_example/extra/write_float.F |
95 |
NO PROCEDURE |
if (flag) write(1,rec=ip+1) npart,tstart,xpart,ypart, |