xyz2b.f File Reference

Go to the source code of this file.

Functions/Subroutines
program	xyz2b
	Part of the NADCON5 NADCON5 Core Library , Converts GMT *.grd to a *.b NADCON style grid file. More...
subroutine	put1 (ival, gla, glo, h, nla, nlo, glamn, dgla, glomn, dglo, iclp)
subroutine	put2 (val, gla, glo, z, nla, nlo, glamn, dgla, glomn, dglo, iclip)
subroutine	w1 (lout, h, nla, nlo, glamn, dgla, glomn, dglo)
subroutine	w2 (lout, z, nla, nlo, glamn, dgla, glomn, dglo)
logical function	makpos (glon)

Function/Subroutine Documentation

logical function makpos

(

glon

)

Definition at line 244 of file xyz2b.f.

*** insure longitude is positive  (single precision)

      makpos=.false.

    1 if(glon.lt.0.d0) then
        glon=glon+360.d0
        makpos=.true.
        go to 1
      endif

    2 if(glon.ge.360.d0) then
        glon=glon-360.d0
        go to 2
      endif

      return

subroutine put1	(		ival,
		real*4	gla,
		real*4	glo,
		integer, dimension(nla,nlo)	h,
			nla,
			nlo,
			glamn,
			dgla,
			glomn,
			dglo,
			iclp
	)

Definition at line 177 of file xyz2b.f.

Referenced by xyz2b().

*** load value into grid

      implicit double precision(a-h,o-z)
      real*4  val,gla,glo
      integer h(nla,nlo)

      i=idnint((gla-glamn)/dgla)+1
      if(i.lt.1.or.i.gt.nla) then
        iclp=iclp+1
        return
      endif
      j=idnint((glo-glomn)/dglo)+1
      if(j.lt.1.or.j.gt.nlo) then
        iclp=iclp+1
        return
      endif
      h(i,j)=ival

      return

Here is the caller graph for this function:

subroutine put2	(	real*4	val,
		real*4	gla,
		real*4	glo,
		real*4, dimension(nla,nlo)	z,
			nla,
			nlo,
			glamn,
			dgla,
			glomn,
			dglo,
			iclip
	)

Definition at line 199 of file xyz2b.f.

Referenced by xyz2b().

*** load value into grid

      implicit double precision(a-h,o-z)
      real*4 z(nla,nlo),val,gla,glo

      i=idnint((gla-glamn)/dgla)+1
      if(i.lt.1.or.i.gt.nla) then
        iclip=iclip+1
        return
      endif
      j=idnint((glo-glomn)/dglo)+1
      if(j.lt.1.or.j.gt.nlo) then
        iclip=iclip+1
        return
      endif
      z(i,j)=val

      return

Here is the caller graph for this function:

subroutine w1	(		lout,
		integer, dimension(nla,nlo)	h,
			nla,
			nlo,
			glamn,
			dgla,
			glomn,
			dglo
	)

Definition at line 220 of file xyz2b.f.

Referenced by xyz2b().

*** write records south to north (elements are west to east)

      implicit double precision(a-h,o-z)
      integer h(nla,nlo)

      do 1 i=1,nla
    1 write(lout) (h(i,j),j=1,nlo)

      return

Here is the caller graph for this function:

subroutine w2	(		lout,
		real*4, dimension(nla,nlo)	z,
			nla,
			nlo,
			glamn,
			dgla,
			glomn,
			dglo
	)

Definition at line 232 of file xyz2b.f.

Referenced by xyz2b().

*** write records south to north (elements are west to east)

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

      do 1 i=1,nla
    1 write(lout) (z(i,j),j=1,nlo)

      return

Here is the caller graph for this function: