diff shef_src/sh2nu2.f shef_src_forCCS/sh2nu2.f 17,18c17,18 < INTRINSIC ICHAR < INTEGER ICHAR --- > EXTERNAL MOVA2I > INTEGER MOVA2I 42c42 < NUMDAT = 10*ICHAR(KHARSV) + ICHAR(KHAR) - 11*ICHAR('0') --- > NUMDAT = 10*MOVA2I(KHARSV) + MOVA2I(KHAR) - 11*MOVA2I('0') diff shef_src/sh2num.f shef_src_forCCS/sh2num.f 22,23c22,23 < INTRINSIC ICHAR < INTEGER ICHAR --- > EXTERNAL MOVA2I > INTEGER MOVA2I 48c48 < IZERO = ICHAR('0') --- > IZERO = MOVA2I('0') 52c52 < NUMSUM = 10*NUMSUM + (ICHAR(KHAR)-IZERO) --- > NUMSUM = 10*NUMSUM + (MOVA2I(KHAR)-IZERO) diff shef_src/sh3dt2.f shef_src_forCCS/sh3dt2.f 18,19c18,19 < INTRINSIC ICHAR < INTEGER ICHAR --- > EXTERNAL MOVA2I > INTEGER MOVA2I 63c63 < IZ = ICHAR('0') --- > IZ = MOVA2I('0') 68c68 < JUL = ICHAR(KH1)-IZ --- > JUL = MOVA2I(KH1)-IZ 71c71 < JUL = 10*ICHAR(KH1)+ICHAR(KH2)-11*IZ --- > JUL = 10*MOVA2I(KH1)+MOVA2I(KH2)-11*IZ 74c74 < JUL = 100*ICHAR(KH1)+10*ICHAR(KH2)+ICHAR(KH3)-111*IZ --- > JUL = 100*MOVA2I(KH1)+10*MOVA2I(KH2)+MOVA2I(KH3)-111*IZ 76,77c76,77 < IYR = 10*ICHAR(KH1)+ICHAR(KH2)-11*IZ < JUL = 100*ICHAR(KH3)+10*ICHAR(KH4)+ICHAR(KH5)-111*IZ --- > IYR = 10*MOVA2I(KH1)+MOVA2I(KH2)-11*IZ > JUL = 100*MOVA2I(KH3)+10*MOVA2I(KH4)+MOVA2I(KH5)-111*IZ 79,81c79,81 < LCN = 10*ICHAR(KH1)+ICHAR(KH2)-11*IZ < IYR = 10*ICHAR(KH3)+ICHAR(KH4)-11*IZ < JUL = 100*ICHAR(KH5)+10*ICHAR(KH6)+ICHAR(KH7)-111*IZ --- > LCN = 10*MOVA2I(KH1)+MOVA2I(KH2)-11*IZ > IYR = 10*MOVA2I(KH3)+MOVA2I(KH4)-11*IZ > JUL = 100*MOVA2I(KH5)+10*MOVA2I(KH6)+MOVA2I(KH7)-111*IZ diff shef_src/shcurd.c shef_src_forCCS/shcurd.c 15a16,19 > #ifdef UNDERSCORE > #define shcurd shcurd_ > #endif > diff shef_src/shdble.f shef_src_forCCS/shdble.f 22,23c22,23 < INTEGER ICHAR < INTRINSIC ICHAR --- > INTEGER MOVA2I > EXTERNAL MOVA2I 79c79 < IZERO = ICHAR('0') --- > IZERO = MOVA2I('0') 87c87 < NSUM1 = 10*NSUM1 + (ICHAR(KHAR)-IZERO) --- > NSUM1 = 10*NSUM1 + (MOVA2I(KHAR)-IZERO) 97c97 < NSUM2 = 10*NSUM2 + (ICHAR(KHAR)-IZERO) --- > NSUM2 = 10*NSUM2 + (MOVA2I(KHAR)-IZERO) diff shef_src/shdura.f shef_src_forCCS/shdura.f 24,25c24,25 < INTRINSIC ICHAR < INTEGER ICHAR --- > EXTERNAL MOVA2I > INTEGER MOVA2I 52c52 < ICHRA = ICHAR('A') --- > ICHRA = MOVA2I('A') 60c60 < NU1 = ICHAR(KH1) - ICHRA --- > NU1 = MOVA2I(KH1) - ICHRA 86c86 < II = ICHAR(KH1) - ICHRA + 1 --- > II = MOVA2I(KH1) - ICHRA + 1 diff shef_src/shedln.f shef_src_forCCS/shedln.f 15,16c15,17 < INTRINSIC LEN,ICHAR < INTEGER LEN,ICHAR --- > INTRINSIC LEN > EXTERNAL MOVA2I > INTEGER LEN,MOVA2I 54c55 < JJ = ICHAR(LINE(II:II)) --- > JJ = MOVA2I(LINE(II:II)) diff shef_src/sherrm.f shef_src_forCCS/sherrm.f 25a26,27 > CHARACTER*80 LMSG > 157c159,161 < WRITE(LUNE,'('' ** WARNG'',I3,'' ** '',A)',IOSTAT=LSTAT) --- > C WRITE(LUNE,'('' ** WARNG'',I3,'' ** '',A)',IOSTAT=LSTAT) > C $ NM,MSG(NM)(1:JJ) > WRITE(LMSG,'('' ** WARNG'',I3,'' ** '',A)',IOSTAT=LSTAT) 160c164,166 < WRITE(LUNE,'('' ** ERROR'',I3,'' ** '',A)',IOSTAT=LSTAT) --- > C WRITE(LUNE,'('' ** ERROR'',I3,'' ** '',A)',IOSTAT=LSTAT) > C $ NM,MSG(NM)(1:JJ) > WRITE(LMSG,'('' ** ERROR'',I3,'' ** '',A)',IOSTAT=LSTAT) 163c169,170 < WRITE(LUNE,'(1X,A)',IOSTAT=LSTAT) MSG(NM)(1:JJ) --- > C WRITE(LUNE,'(1X,A)',IOSTAT=LSTAT) MSG(NM)(1:JJ) > WRITE(LMSG,'(1X,A)',IOSTAT=LSTAT) MSG(NM)(1:JJ) 164a172 > CALL DC_WLOG ( 2, 'DC', 2, LMSG, IERWLG ) diff shef_src/sherrs.f shef_src_forCCS/sherrs.f 24a25,26 > CHARACTER*80 LMSG > 46c48,50 < WRITE(LUNE,'(/,'' NUMBER OF WARNINGS ....'',I8 )', --- > C WRITE(LUNE,'(/,'' NUMBER OF WARNINGS ....'',I8 )', > C $ IOSTAT=LSTAT) NWAR > WRITE(LMSG,'('' NUMBER OF WARNINGS ....'',I8 )', 48c52,55 < WRITE(LUNE,'( '' NUMBER OF ERRORS ......'',I8,/)', --- > CALL DC_WLOG ( 2, 'DC', 2, LMSG, IERWLG ) > C WRITE(LUNE,'( '' NUMBER OF ERRORS ......'',I8,/)', > C $ IOSTAT=LSTAT) NERR > WRITE(LMSG,'('' NUMBER OF ERRORS ......'',I8)', 49a57 > CALL DC_WLOG ( 2, 'DC', 2, LMSG, IERWLG ) diff shef_src/shexcd.f shef_src_forCCS/shexcd.f 22,23c22,23 < INTRINSIC ICHAR < INTEGER ICHAR --- > EXTERNAL MOVA2I > INTEGER MOVA2I 49c49 < ICHRA = ICHAR('A') --- > ICHRA = MOVA2I('A') 58c58 < NU1 = ICHAR(KH1) - ICHRA --- > NU1 = MOVA2I(KH1) - ICHRA 84c84 < NU1 = ICHAR(KH1) - ICHRA --- > NU1 = MOVA2I(KH1) - ICHRA diff shef_src/shfact.f shef_src_forCCS/shfact.f 23,24c23,24 < INTRINSIC ICHAR < INTEGER ICHAR --- > EXTERNAL MOVA2I > INTEGER MOVA2I 51c51 < ICHRA = ICHAR('A') --- > ICHRA = MOVA2I('A') 59c59 < NU1 = ICHAR(KH1) - ICHRA --- > NU1 = MOVA2I(KH1) - ICHRA 61c61 < NU2 = ICHAR(KH2) - ICHRA --- > NU2 = MOVA2I(KH2) - ICHRA 88c88 < II = 26*(ICHAR(KH1)-ICHRA) + (ICHAR(KH2)-ICHRA) + 1 --- > II = 26*(MOVA2I(KH1)-ICHRA) + (MOVA2I(KH2)-ICHRA) + 1 diff shef_src/shgetk.f shef_src_forCCS/shgetk.f 23,24c23,24 < EXTERNAL SHLINE,SHERR < INTRINSIC CHAR,ICHAR --- > EXTERNAL SHLINE,SHERR,MOVA2I > INTRINSIC CHAR 26c26 < INTEGER KHPOS,KLOOP,NCOLON,NQUOTE,ICHAR,DIFF,INITZ --- > INTEGER KHPOS,KLOOP,NCOLON,NQUOTE,MOVA2I,DIFF,INITZ 50c50 < DIFF = ICHAR(SMLA)-ICHAR(CAPA) --- > DIFF = MOVA2I(SMLA)-MOVA2I(CAPA) 102c102 < KHAR = CHAR( ICHAR(KHAR)-DIFF ) --- > KHAR = CHAR( MOVA2I(KHAR)-DIFF ) diff shef_src/shline.f shef_src_forCCS/shline.f 35a36,37 > CHARACTER*80 LMSG > 79c81 < READ(LUNI,'(A)',IOSTAT=LSTAT) LINE(LBEG:MAXEND-1) --- > C READ(LUNI,'(A)',IOSTAT=LSTAT) LINE(LBEG:MAXEND-1) 80a83,84 > CALL SF_GLIN ( LINE(LBEG:MAXEND-1), LSTAT ) > 110c114,128 < WRITE(LUNC,'(1X,A)',IOSTAT=LSTAT) LINE(LBEG:LEND) --- > C WRITE(LUNC,'(1X,A)',IOSTAT=LSTAT) LINE(LBEG:LEND) > > IF ( ( LEND - LBEG ) .LT. 80 ) THEN > LLST = LEND > ELSE > LLST = LBEG + 79 > END IF > > C Print bulletin line to decoder log unless the first > C character is > > IF ( MOVA2I( LINE(LBEG:LBEG) ) .NE. 1 ) THEN > CALL DC_WLOG ( 2, 'DC', 2, LINE(LBEG:LLST), IERWLG ) > END IF > 117,118c135,146 < WRITE(LUNE,'(1X,A,'' (line'',I8,'')'')',IOSTAT=LSTAT) < $ LINE(LBEG:LEND),LNUM --- > C WRITE(LUNE,'(1X,A,'' (line'',I8,'')'')',IOSTAT=LSTAT) > C $ LINE(LBEG:LEND),LNUM > > IF ( ( LEND - LBEG ) .LT. 60 ) THEN > LLST = LEND > ELSE > LLST = LBEG + 59 > END IF > WRITE(LMSG,'(A,'' (line'',I8,'')'')',IOSTAT=LSTAT) > $ LINE(LBEG:LLST),LNUM > CALL DC_WLOG ( 2, 'DC', 2, LMSG, IERWLG ) > 125c153 < WRITE(LUNE,FMAT,IOSTAT=LSTAT) --- > C WRITE(LUNE,FMAT,IOSTAT=LSTAT) 130,131c158,159 < WRITE(LUNE,'('' TOTAL NUMBER OF LINES ..'',I8)', < $ IOSTAT=LSTAT) LNUM --- > C WRITE(LUNE,'('' TOTAL NUMBER OF LINES ..'',I8)', > C $ IOSTAT=LSTAT) LNUM diff shef_src/shout.f shef_src_forCCS/shout.f 62a63,64 > INCLUDE 'sfcmn_pe.cmn' > 63a66 > CHARACTER*80 LMSG 87c90 < DATA INITZ,BLNK4,BLNK3,LUNO / 0, ' ', ' ', -1 / --- > DATA INITZ,BLNK4,BLNK3,LUNO / 0, ' ', ' ', -1 / 103,110c106,128 < IF (LUNO.GE.0 .AND. LUNO.LE.99) THEN < WRITE(LUNO,IOSTAT=IERR) < $ ID,IYR,IMO,IDA,IHR,IMN,ISE,KYR,KMO,KDA,KHR,KMN,KSE, < $ PARCOD(1:1),BLNK3,PARCOD(2:2),BLNK3,IDUR, < $ PARCOD(4:4),BLNK3,PARCOD(5:5),BLNK3,PARCOD(6:6),BLNK3, < $ CODP,VALU,IQUAL,BLNK3, < $ IREV,JID,ITIME,PARCOD,BLNK4,BLNK4, < $ QUO --- > C IF (LUNO.GE.0 .AND. LUNO.LE.99) THEN > > IF (npecod.GT.0) THEN > C Does the current PE code match one of the ones on the > C command line? > IPOS = 0 > II = 1 > DO WHILE ( ( II .LE. npecod ) .AND. ( IPOS .EQ. 0 ) ) > IF ( ( PARCOD(1:2) .EQ. pecod(II)(1:2) ) .OR. > $ ( ( PARCOD(1:1) .EQ. pecod(II)(1:1) ) .AND. > $ ( pecod(II)(2:2) .EQ. '.' ) ) ) THEN > IPOS = II > ELSE > II = II + 1 > ENDIF > ENDDO > IF (IPOS.GT.0) THEN > WRITE(iunpef,200,IOSTAT=IERR) IYR,IMO,IDA,IHR,IMN,ID,PARCOD(1:1), > $ PARCOD(2:2),IDUR,PARCOD(4:4),PARCOD(5:5),PARCOD(6:6), > $ CODP,VALU,IQUAL,IREV,JID,ITIME > 200 FORMAT (I4,1X,4(I2,1X),A8,1X,2(A1,1X),I4,1X,3(A1,1X),F6.2, > $ F9.2,1X,A1,1X,I1,1X,A8,1X,I1) > ENDIF 111a130,142 > > WRITE(LMSG,300,IOSTAT=IERR) 'SHEFLIB OUTPUT: ', > $ IYR,IMO,IDA,IHR,IMN,ID,PARCOD(1:1),PARCOD(2:2), > $ IDUR,PARCOD(4:4),PARCOD(5:5),PARCOD(6:6), > $ VALU,IQUAL,IREV > 300 FORMAT (3X,A,I4,1X,4(I2,1X),A8,1X,2(A1,1X),I4,3X,3(A1,1X), > $ F11.4,1X,A1,1X,I1) > CALL DC_WLOG ( 3, 'DC', 2, LMSG, IERWLG ) > > C ENDIF > > CALL SF_INTF( IYR, IMO, IDA, IHR, IMN, ID, PARCOD, IDUR, > + VALU, IQUAL, IREV ) diff shef_src/shprob.f shef_src_forCCS/shprob.f 23,24c23,24 < INTRINSIC ICHAR < INTEGER ICHAR --- > EXTERNAL MOVA2I > INTEGER MOVA2I 51,52c51,52 < ICHRA = ICHAR('A') < ICHR1 = ICHAR('1') --- > ICHRA = MOVA2I('A') > ICHR1 = MOVA2I('1') 62c62 < II = ICHAR(KH1) - ICHRA + 1 --- > II = MOVA2I(KH1) - ICHRA + 1 65c65 < II = ICHAR(KH1) - ICHR1 + 27 --- > II = MOVA2I(KH1) - ICHR1 + 27 91c91 < II = ICHAR(KH1) - ICHRA + 1 --- > II = MOVA2I(KH1) - ICHRA + 1 94c94 < II = ICHAR(KH1) - ICHR1 + 27 --- > II = MOVA2I(KH1) - ICHR1 + 27 diff shef_src/shsend.f shef_src_forCCS/shsend.f 24,25c24,25 < INTRINSIC ICHAR < INTEGER ICHAR --- > EXTERNAL MOVA2I > INTEGER MOVA2I 53c53 < ICHRA = ICHAR('A') --- > ICHRA = MOVA2I('A') 62c62 < NU1 = ICHAR(KH1) - ICHRA --- > NU1 = MOVA2I(KH1) - ICHRA 64c64 < NU2 = ICHAR(KH2) - ICHRA --- > NU2 = MOVA2I(KH2) - ICHRA 95c95 < II = 26*(ICHAR(KH1)-ICHRA) + (ICHAR(KH2)-ICHRA) + 1 --- > II = 26*(MOVA2I(KH1)-ICHRA) + (MOVA2I(KH2)-ICHRA) + 1 diff shef_src/shtscd.f shef_src_forCCS/shtscd.f 22,23c22,23 < INTRINSIC ICHAR < INTEGER ICHAR --- > EXTERNAL MOVA2I > INTEGER MOVA2I 50,51c50,51 < ICHRA = ICHAR('A') < ICHR1 = ICHAR('1') --- > ICHRA = MOVA2I('A') > ICHR1 = MOVA2I('1') 62c62 < NU1 = ICHAR(KH1) - ICHRA --- > NU1 = MOVA2I(KH1) - ICHRA 65c65 < II = ICHAR(KH1) - ICHR1 --- > II = MOVA2I(KH1) - ICHR1 74c74 < NU2 = ICHAR(KH2) - ICHRA --- > NU2 = MOVA2I(KH2) - ICHRA 113c113 < NU1 = ICHAR(KH1) - ICHRA --- > NU1 = MOVA2I(KH1) - ICHRA 116c116 < II = ICHAR(KH1) - ICHR1 --- > II = MOVA2I(KH1) - ICHR1 125c125 < NU2 = ICHAR(KH2) - ICHRA --- > NU2 = MOVA2I(KH2) - ICHRA diff shef_src/shvern.f shef_src_forCCS/shvern.f 66,67c66,67 < WRITE(LUNE,'('' (parsing routines: '',A,'')'')', < $ IOSTAT=LSTAT) VERNUM(1:IEND) --- > C WRITE(LUNE,'('' (parsing routines: '',A,'')'')', > C $ IOSTAT=LSTAT) VERNUM(1:IEND)