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 104 of file decimate.f.

Referenced by decimate().

*** extract 1 of "nx" points in a record

      implicit double precision(a-h,o-z)
      integer hrec(*)

      read(lin) (hrec(i),i=1,nlo)
      write(lout) (hrec(nx*i+1),i=0,nlo2-1)

      return

Here is the caller graph for this function:

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

Definition at line 116 of file decimate.f.

Referenced by decimate().

*** extract 1 of "nx" points in a record

      implicit double precision(a-h,o-z)
      real*4 zrec(*)

      read(lin) (zrec(i),i=1,nlo)
      write(lout) (zrec(nx*i+1),i=0,nlo2-1)

      return

Here is the caller graph for this function: