File |
Line number |
Procedure |
Code |
./pkg/exf/exf_interp_read.F |
149 |
EXF_INTERP_READ |
READ(ioUnit,rec=irecord) buffer_r8 |
./pkg/exf/exf_interp_read.F |
151 |
EXF_INTERP_READ |
READ(ioUnit,rec=irecord) (buffer_r8(i),i=1,nx_in*ny_in) |
./pkg/exf/exf_interp_read.F |
154 |
EXF_INTERP_READ |
CALL MDS_BYTESWAPR8(nx_in*ny_in,buffer_r8) |
./pkg/exf/exf_interp_read.F |
169 |
EXF_INTERP_READ |
CALL MPI_BCAST(buffer_r8,nx_in*ny_in,MPI_DOUBLE_PRECISION, |
./pkg/exf/exf_interp_read.F |
179 |
EXF_INTERP_READ |
glPtr8 = buffer_r8 |
./pkg/exf/exf_interp_read.F |
211 |
EXF_INTERP_READ |
arrayin(i,j)=buffer_r8(i,j) |
./pkg/exf/exf_interp_read.F |
228 |
EXF_INTERP_READ |
arrayin(i,j)=buffer_r8(i+ijs) |
./pkg/exf/exf_interp_read.F |
67 |
EXF_INTERP_READ |
Real*8, target :: buffer_r8(nx_in,ny_in) |
./pkg/exf/exf_interp_read.F |
70 |
EXF_INTERP_READ |
Real*8 buffer_r8(nx_in,ny_in) |
./pkg/exf/exf_interp_read.F |
74 |
EXF_INTERP_READ |
Real*8 buffer_r8(exf_interp_bufferSize) |
./pkg/exf/exf_interp_read.F |
76 |
EXF_INTERP_READ |
COMMON /EXF_INTERP_BUFFER/ buffer_r8, buffer_r4 |