NADCON5-ng  0.0.1
NADCON5 Next Generation
decimate.f File Reference

Go to the source code of this file.

Functions/Subroutines

program decimate
 Part of the NADCON5 NADCON5 Core Library , Extract a reduced (1 of n) dataset. More...
 
subroutine inouti (lin, lout, nlo, nlo2, nx, hrec)
 
subroutine inoutr (lin, lout, nlo, nlo2, nx, zrec)
 

Function/Subroutine Documentation

subroutine inouti (   lin,
  lout,
  nlo,
  nlo2,
  nx,
integer, dimension(*)  hrec 
)

Definition at line 100 of file decimate.f.

Referenced by decimate().

100 
101 *** extract 1 of "nx" points in a record
102 
103  implicit double precision(a-h,o-z)
104  integer hrec(*)
105 
106  read(lin) (hrec(i),i=1,nlo)
107  write(lout) (hrec(nx*i+1),i=0,nlo2-1)
108 
109  return

+ Here is the caller graph for this function:

subroutine inoutr (   lin,
  lout,
  nlo,
  nlo2,
  nx,
real*4, dimension(*)  zrec 
)

Definition at line 112 of file decimate.f.

Referenced by decimate().

112 
113 *** extract 1 of "nx" points in a record
114 
115  implicit double precision(a-h,o-z)
116  real*4 zrec(*)
117 
118  read(lin) (zrec(i),i=1,nlo)
119  write(lout) (zrec(nx*i+1),i=0,nlo2-1)
120 
121  return

+ Here is the caller graph for this function: