w3arrymd.F90 File Reference

Go to the source code of this file.

Modules
module	w3arrymd

Functions/Subroutines
subroutine	w3arrymd::ina2r (ARRAY, MX, MY, LX, HX, LY, HY, NDS, NDST, NDSE, IDFM, RFORM, IDLA, VSC, VOF)
subroutine	w3arrymd::ina2i (ARRAY, MX, MY, LX, HX, LY, HY, NDS, NDST, NDSE, IDFM, RFORM, IDLA, VSC, VOF)
subroutine	w3arrymd::outa2r (ARRAY, MX, MY, LX, HX, LY, HY, NDS, NDST, NDSE, IDFM, RFORM, IDLA, VSC, VOF)
subroutine	w3arrymd::outa2i (ARRAY, MX, MY, LX, HX, LY, HY, NDS, NDST, NDSE, IDFM, RFORM, IDLA, VSC, VOF)
subroutine	w3arrymd::outrea (NDS, ARRAY, DIM, ANAME)
subroutine	w3arrymd::outint (NDS, IARRAY, DIM, ANAME)
subroutine	w3arrymd::outmat (NDS, A, MX, NX, NY, MNAME)
subroutine	w3arrymd::prtblk (NDS, NX, NY, MX, F, MAP, MAP0, FSC, IX1, IX2, IX3, IY1, IY2, IY3, PRVAR, PRUNIT)
subroutine	w3arrymd::prt1ds (NDS, NFR, E, FR, UFR, NLINES, FTOPI, PRVAR, PRUNIT, PNTNME)
subroutine	w3arrymd::prt1dm (NDS, NFR, NE, E, FR, UFR, NLINES, FTOPI, PRVAR, PRUNIT, PNTNME)
subroutine	w3arrymd::prt2ds (NDS, NFR0, NFR, NTH, E, FR, UFR, FACSP, FSC, RRCUT, PRVAR, PRUNIT, PNTNME)
subroutine	angstr (IANG, SANG, ILEN, INUM)

Function/Subroutine Documentation

angstr()

subroutine prt2ds::angstr	(	integer, intent(in)	IANG,
		character, dimension(*), intent(out)	SANG,
		integer, intent(in)	ILEN,
		integer, intent(in)	INUM
	)

Definition at line 2290 of file w3arrymd.F90.

      !/
      !/                  +-----------------------------------+
      !/                  | WAVEWATCH III           NOAA/NCEP |
      !/                  |           H. L. Tolman            |
      !/                  |                        FORTRAN 90 |
      !/                  | Last update :         29-Nov-1999 |
      !/                  +-----------------------------------+
      !/
      !/    10-Mar-1992 : Final FORTRAN 77                    ( version 1.18 )
      !/    29-Nov-1999 : Upgrade to FORTRAN 90               ( version 2.00 )
      !
      !     INPUT  : IANG --> INTEGER ANGLE (DEGREES)
      !              ILEN --> STRING LENGTH
      !              INUM --> <1 : ONLY FOUR MAIN DIRECTIONS
      !                        1 : N,E,S,W AND NUMERICAL OUTPUT
      !                        2 : EIGHT MAIN DIRECTIONS
      !                       >2 : EIGHT DIRECTIONS + NUMERICAL OUTPUT
      !     OUTPUT : SANG --> STRING
      !
      !/ ------------------------------------------------------------------- /
      !/
#ifdef W3_S
      USE w3servmd, ONLY: strace
#endif
      !
      IMPLICIT NONE
      !/
      !/ ------------------------------------------------------------------- /
      !/ Parameter list
      !/
      INTEGER, INTENT(IN)     :: IANG, ILEN, INUM
      CHARACTER, INTENT(OUT)  :: SANG*(*)
      !/
      !/ ------------------------------------------------------------------- /
      !/ Local parameters
      !/
      INTEGER                 :: I, J
      CHARACTER               :: SAUX*4
      !/
      !/ ------------------------------------------------------------------- /
      !/
      !     numerical :
      !
      IF (inum.EQ.1 .OR. inum.GE.3) THEN
        WRITE (saux, fmt='(I4)') iang
      ELSE
        saux = '    '
      END IF
      !
      !     string :
      !
      IF (iang.EQ.0) THEN
        saux = '   N'
      ELSE IF (iang.EQ.90) THEN
        saux = '   E'
      ELSE IF (iang.EQ.180) THEN
        saux = '   S'
      ELSE IF (iang.EQ.270) THEN
        saux = '   W'
      ELSE IF (inum.GE.2) THEN
        IF (iang.EQ.45) THEN
          saux = '  NE'
        ELSE IF (iang.EQ.135) THEN
          saux = '  SE'
        ELSE IF (iang.EQ.225) THEN
          saux = '  SW'
        ELSE IF (iang.EQ.315) THEN
          saux = '  NW'
        END IF
      END IF
      !
      !     Auxilary string to output :
      !
      DO i=1, ilen-4
        sang = ' '
      END DO
      j = 0
      DO i=ilen-3, ilen
        j = j + 1
        sang(i:i) = saux(j:j)
      END DO
      RETURN
      !/
      !/ End of ANGSTR ----------------------------------------------------- /
      !/

References w3servmd::strace().

Referenced by w3arrymd::prt2ds().