NCEPLIBS-bufr  11.7.0
 All Data Structures Files Functions Variables Pages
rsvfvm.f
Go to the documentation of this file.
1 C> @file
2 C> @author WOOLLEN @date 1994-01-06
3 
4 C> THIS SUBROUTINE STEPS THROUGH THE "FOLLOWING VALUE"
5 C> MNEMONIC NEM1 AND, FOR EACH "." CHARACTER ENCOUNTERED (EXCEPT FOR
6 C> THE INITIAL ONE), OVERWRITES IT WITH THE NEXT CORRESPONDING
7 C> CHARACTER FROM NEM2 (SEE REMARKS).
8 C>
9 C> PROGRAM HISTORY LOG:
10 C> 1994-01-06 J. WOOLLEN -- ORIGINAL AUTHOR
11 C> 2003-11-04 J. ATOR -- ADDED DOCUMENTATION
12 C> 2003-11-04 S. BENDER -- ADDED REMARKS/BUFRLIB ROUTINE
13 C> INTERDEPENDENCIES
14 C> 2003-11-04 D. KEYSER -- UNIFIED/PORTABLE FOR WRF; ADDED HISTORY
15 C> DOCUMENTATION
16 C>
17 C> USAGE: CALL RSVFVM (NEM1, NEM2)
18 C> INPUT ARGUMENT LIST:
19 C> NEM1 - CHARACTER*8: "FOLLOWING VALUE" MNEMONIC
20 C> NEM2 - CHARACTER*8: MNEMONIC IMMEDIATELY FOLLOWING NEM1
21 C> WITHIN USER DICTIONARY TABLE
22 C>
23 C> OUTPUT ARGUMENT LIST:
24 C> NEM1 - CHARACTER*8: COPY OF INPUT NEM1 WITH ALL "."
25 C> CHARACTERS (EXCEPT INITIAL ONE) OVERWRITTEN WITH
26 C> CORRESPONDING CHARACTERS FROM NEM2
27 C>
28 C> REMARKS:
29 C> FOR EXAMPLE:
30 C> if, on input: NEM1 = ".DTH...."
31 C> NEM2 = "MXTM "
32 C> then, on output: NEM1 = ".DTHMXTM"
33 C>
34 C>
35 C> THIS ROUTINE CALLS: None
36 C> THIS ROUTINE IS CALLED BY: NEMTBD SEQSDX
37 C> Normally not called by any application
38 C> programs.
39 C>
40  SUBROUTINE rsvfvm(NEM1,NEM2)
41 
42 
43 
44  CHARACTER*8 nem1,nem2
45 
46  DO i=1,len(nem1)
47  IF(i.EQ.1) THEN
48 
49 C Skip initial "." and initialize J.
50 
51  j = 1
52  ELSE
53  IF(nem1(i:i).EQ.'.') THEN
54  nem1(i:i) = nem2(j:j)
55  j = j+1
56  ENDIF
57  ENDIF
58  ENDDO
59 
60  RETURN
61  END
subroutine rsvfvm(NEM1, NEM2)
THIS SUBROUTINE STEPS THROUGH THE "FOLLOWING VALUE" MNEMONIC NEM1 AND, FOR EACH "." CHARACTER ENCOUNTERED (EXCEPT FOR THE INITIAL ONE), OVERWRITES IT WITH THE NEXT CORRESPONDING CHARACTER FROM NEM2 (SEE REMARKS).
Definition: rsvfvm.f:40