rsvfvm.f

Go to the documentation of this file.

C> @file
C> @author WOOLLEN @date 1994-01-06
      
C> THIS SUBROUTINE STEPS THROUGH THE "FOLLOWING VALUE"
C>   MNEMONIC NEM1 AND, FOR EACH "." CHARACTER ENCOUNTERED (EXCEPT FOR
C>   THE INITIAL ONE), OVERWRITES IT WITH THE NEXT CORRESPONDING
C>   CHARACTER FROM NEM2 (SEE REMARKS).
C>
C> PROGRAM HISTORY LOG:
C> 1994-01-06  J. WOOLLEN -- ORIGINAL AUTHOR
C> 2003-11-04  J. ATOR    -- ADDED DOCUMENTATION
C> 2003-11-04  S. BENDER  -- ADDED REMARKS/BUFRLIB ROUTINE
C>                           INTERDEPENDENCIES
C> 2003-11-04  D. KEYSER  -- UNIFIED/PORTABLE FOR WRF; ADDED HISTORY
C>                           DOCUMENTATION
C>
C> USAGE:    CALL RSVFVM (NEM1, NEM2)
C>   INPUT ARGUMENT LIST:
C>     NEM1     - CHARACTER*8: "FOLLOWING VALUE" MNEMONIC
C>     NEM2     - CHARACTER*8: MNEMONIC IMMEDIATELY FOLLOWING NEM1
C>                WITHIN USER DICTIONARY TABLE
C>
C>   OUTPUT ARGUMENT LIST:
C>     NEM1     - CHARACTER*8: COPY OF INPUT NEM1 WITH ALL "."
C>                CHARACTERS (EXCEPT INITIAL ONE) OVERWRITTEN WITH
C>                CORRESPONDING CHARACTERS FROM NEM2
C>
C> REMARKS:
C>    FOR EXAMPLE:
C>     if, on input:    NEM1 = ".DTH...."
C>                      NEM2 = "MXTM    "
C>     then, on output: NEM1 = ".DTHMXTM"
C>
C>
C>    THIS ROUTINE CALLS:        None
C>    THIS ROUTINE IS CALLED BY: NEMTBD   SEQSDX
C>                               Normally not called by any application
C>                               programs.
C>
      SUBROUTINE rsvfvm(NEM1,NEM2)



      CHARACTER*8 nem1,nem2

      DO i=1,len(nem1)
      IF(i.EQ.1) THEN

C        Skip initial "." and initialize J.

         j = 1
      ELSE
         IF(nem1(i:i).EQ.'.') THEN
            nem1(i:i) = nem2(j:j)
            j = j+1
         ENDIF
      ENDIF
      ENDDO

      RETURN
      END