/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/ |
H A D | xnam14.f | 4 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 23 1 CALL NAMER(KAND,9,NLNAME,6,GRNDEF,8,LENF,2,LDMF,AF,141, 26 1 CALL NAMEW(KAND,6,NLNAME,6,GRNDEF,8,LENF,2,LDMF,AF,141,LOCF)
|
H A D | xnam2.f | 6 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 26 1 CALL NAMER(KAND,9,NLNAME,6,OPTINS,20,LEN3,4,LDM3,A3,4,LOC3,EOF) 28 1 CALL NAMEW(KAND,6,NLNAME,6,OPTINS,20,LEN3,4,LDM3,A3,4,LOC3)
|
H A D | rvalue.f | 2 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 67 IF(KOL(L) .EQ. KAND .AND. L .EQ. FIRST) GO TO 1140 68 IF(KOL(L) .NE. COMMA .AND. KOL(L) .NE. KAND) GO TO 1140 83 IF(KOL(L) .EQ. KAND) GO TO 1140
|
H A D | testor.f | 5 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 44 WRITE(6,1190) KAND 45 WRITE(11,1200) KAND, (BLANK,J=1,75) 53 WRITE(6,1210) (KOL(J),J=1,80), KAND 65 IF(KOL(L) .EQ. KAND) END = .TRUE. 85 IF(KOL(L) .EQ. KAND) GO TO 1050
|
H A D | xnam15.f | 4 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 25 1 CALL NAMER(KAND,9,NLNAME,6,TVTPAN,23,LENG,8,LDMG,AG,162, 28 1 CALL NAMEW(KAND,6,NLNAME,6,TVTPAN,23,LENG,8,LDMG,AG,162,LOCG)
|
H A D | xnam18.f | 4 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 26 1 CALL NAMER(KAND,9,NLNAME,6,HYPEFF,32,LENK,7,LDMK,AK,137, 29 1 CALL NAMEW(KAND,6,NLNAME,6,HYPEFF,32,LENK,7,LDMK,AK,137,LOCK)
|
H A D | xnam19.f | 4 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 26 1 CALL NAMER(KAND,9,NLNAME,6,TRNJET,38,LENL,12,LDML,AL,137, 29 1 CALL NAMEW(KAND,6,NLNAME,6,TRNJET,38,LENL,12,LDML,AL,137,LOCL)
|
H A D | xnam3.f | 6 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 30 1 CALL NAMER(KAND,9,NLNAME,4,BODY,44,LEN4,15,LDM4,A4,129, 33 1 CALL NAMEW (KAND,6,NLNAME,4,BODY,44,LEN4,15,LDM4,A4,129,LOC4)
|
H A D | namew.f | 1 SUBROUTINE NAMEW(KAND,IUNIT,NLNAME,LENNLN,VNAME,DVNAME,LENVN, argument 50 WRITE(IUNIT,1030)KAND,(NLNAME(I),I=1,LENNLN) 86 WRITE(IUNIT,1040)KAND
|
H A D | xnam22.f | 4 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 32 1 CALL NAMER(KAND,9,NLNAME,6,CONTAB,71,LENM,21,LDMM,AM,137, 35 1 CALL NAMEW(KAND,6,NLNAME,6,CONTAB,71,LENM,21,LDMM,AM,137,LOCM)
|
H A D | xnam6.f | 6 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 32 1 CALL NAMER(KAND,9,NLNAME,6,SYNTHS,60,LEN7,19,LDM7,A7,19,LOC7,EOF) 34 1 CALL NAMEW(KAND,6,NLNAME,6,SYNTHS,60,LEN7,19,LDM7,A7,19,LOC7)
|
H A D | xnam17.f | 4 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 31 1 CALL NAMER(KAND,9,NLNAME,6,ASYFLP,78,LENJ,14,LDMJ,AJ,137, 34 1 CALL NAMEW(KAND,6,NLNAME,6,ASYFLP,78,LENJ,14,LDMJ,AJ,137,LOCJ)
|
H A D | xnam11.f | 4 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 31 1 CALL NAMER(KAND,9,NLNAME,6,PROPWR,78,LENC,14,LDMC,AC,50,LOCC,EOF) 33 1 CALL NAMEW(KAND,6,NLNAME,6,PROPWR,78,LENC,14,LDMC,AC,50,LOCC)
|
H A D | xnam12.f | 4 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 34 1 CALL NAMER(KAND,9,NLNAME,6,JETPWR,89,LEND,15,LDMD,AD,50, 37 1 CALL NAMEW(KAND,6,NLNAME,6,JETPWR,89,LEND,15,LDMD,AD,50,LOCD)
|
H A D | xnam1.f | 7 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 41 1 CALL NAMER(KAND,9,NLNAME,6,FLTCON,81,LEN2,18,LDM2,A2A,161, 44 1 CALL NAMEW(KAND,6,NLNAME,6,FLTCON,81,LEN2,18,LDM2,A2A,161,LOC2)
|
H A D | xnam13.f | 4 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 34 1 CALL NAMER(KAND,9,NLNAME,5,LARWB,89,LENE,21,LDME,AE,50,LOCE,EOF) 36 1 CALL NAMEW(KAND,6,NLNAME,5,LARWB,89,LENE,21,LDME,AE,50,LOCE)
|
H A D | xnam4.f | 6 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 41 1 CALL NAMER(KAND,9,NLNAME,6,PLNF,81,LEN5,15,LDM5,A,15,LOC5,EOF) 43 1 CALL NAMEW(KAND,6,NLNAME,6,PLNF,81,LEN5,15,LDM5,A,15,LOC5)
|
H A D | xnam16.f | 4 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 44 1 CALL NAMER(KAND,9,NLNAME,6,SYMFLP,139,LENI,27,LDMI,AIA,117, 47 1 CALL NAMEW(KAND,6,NLNAME,6,SYMFLP,139,LENI,27,LDMI,AIA,117,LOCI)
|
H A D | namer.f | 1 SUBROUTINE NAMER(KAND,IUNIT,NLNAME,LENNLN,VNAME,DVNAME,LENVN, argument 90 IF(KOL(ICOL) .NE. KAND)GO TO 1020 126 1050 CALL FINDCH(KOL, KAND, ICOL) 163 1080 IF(KOL(ICOL) .EQ. KAND .OR. IEND)GO TO 1290 231 1140 IF(KOL(ICOL) .EQ. KAND)IEND=.TRUE. 253 CALL FINDCH(KOL, KAND, LCOL)
|
H A D | xnam8.f | 7 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 54 1 CALL NAMER(KAND,9,NLNAME,6,SCHR,160,LENHS,34,LDMHS,HS,306,LOCHS, 57 1 CALL NAMEW(KAND,6,NLNAME,6,SCHR,160,LENHS,34,LDMHS,HS,306,LOCHS)
|
H A D | xnam20.f | 7 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 54 1 CALL NAMER(KAND,9,NLNAME,6,PLNF,92,LENVFP,18,LDMVFP,VFP,75, 57 1 CALL NAMEW(KAND,6,NLNAME,6,PLNF,92,LENVFP,18,LDMVFP,VFP,
|
H A D | xnam5.f | 7 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 56 1 CALL NAMER(KAND,9,NLNAME,6,SCHR,170,LEN6,36,LDM6,A6,253,LOC6,EOF) 58 1 CALL NAMEW(KAND,6,NLNAME,6,SCHR,170,LEN6,36,LDM6,A6,253,LOC6)
|
H A D | xnam7.f | 7 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 55 1 CALL NAMER(KAND,9,NLNAME,6,PLNF,92,LENHP,18,LDMHP,A,75, 58 1 CALL NAMEW(KAND,6,NLNAME,6,PLNF,92,LENHP,18,LDMHP,A,75,LOCHP)
|
H A D | xnam9.f | 7 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 53 1 CALL NAMER(KAND,9,NLNAME,6,PLNF,92,LENVP,18,LDMVP,VT,75, 56 1 CALL NAMEW(KAND,6,NLNAME,6,PLNF,92,LENVP,18,LDMVP,VT,75,LOCVP)
|
H A D | xnam10.f | 7 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND local 54 1 CALL NAMER(KAND,9,NLNAME,6,SCHR,160,LENVTS,34,LDMVTS,VTS,314, 57 1 CALL NAMEW(KAND,6,NLNAME,6,SCHR,160,LENVTS,34,LDMVTS,VTS,314,
|