1 SUBROUTINE INPUTC(JRETRN,I,KOL,NAMORD,ISDIM,SSAVE) 2C 3C*** SUBROUTINE READS CONTROL CARDS AND SETS FLAGS 4C 5C INPUT DATA BLOCKS 6C 7 COMMON /FLGTCD/ NMACH,NALPHA,MACH(20),ALSCHD(20),RNNUB(20),NGH 8 1 ,GRDHT(10),PINF(20),STMACH,TSMACH,TR,ALT(20) 9 2 ,TINF(20),VINF(20),WT,GAMMA,NALT,LOOP 10 COMMON /OPTION/ SREF, CBARR, ROUGFC, BLREF 11 COMMON /SYNTSS/ XCG, XW, ZW, ALIW, ZCG, XH, ZH, ALIH, XV, 12 1 VERTUP, HINAX, XVF, SCALE, ZV, ZVF, YV,YF, 13 2 PHIV, PHIF 14 COMMON /BODYI/ NX,X(20),S(20),P(20),R(20),ZU(20),ZL(20), 15 1 BNOSE,BTAIL,BLN,BLA,DS,ITYPE,METHOD,ELLIP 16 COMMON /WINGI/ CHRDTP,SSPNOP,SSPNE,SSPN,CHRDBP,CHRDR,SAVSI,SAVSO, 17 1 CHSTAT,ALPHAO,TWISTA,SSPNDD,DHDADI,DHDADO, 18 2 TYPE, 19 3 TOVC,DELTAY,XOVC,CLI,ALPHAI,CLALPA(20), 20 4 CLMAX(20),CMO,LERI,LERO,CAMBER,TOVCO,XOVCO,CMOT, 21 5 CLMAXL,CLAMO,TCEFF,KSHARP,XAC(20),ARCL,YCM,CLD, 22 6 SLOPE(6),DWASH 23 COMMON /HTI/ HTIN(154) 24 COMMON /VTI/ VTIN(154),BVP,BV,BDV,BH,SV,VPHITE,VLP,ZP, 25 1 VFIN(154) 26 COMMON /POWER/ AIETLP,NENGSP,THSTCP,PHALOC,PHVLOC,PRPRAD,ENGFCT, 27 1 BWAPR3,BWAPR6,BWAPR9,NOPBPE,BAPR75, 28 2 AIETLJ,NENGSJ,THSTCJ,JIALOC,JEVLOC,JEALOC, 29 3 JINLTA,JEANGL,JEVELO,AMBTMP,JESTMP,JELLOC, 30 4 JETOTP,AMBSTP,JERAD,YP,CROT, 31 5 LBIN(21) 32 COMMON /FLAPIN/ F(116),TTYPE,CFITC,CFOTC,BITC,BOTC,CFITT,CFOTT, 33 1 BITT,BOTT,B1,B2,B3,B4,D1,D2,D3,GCMAX, 34 2 KS,RL,BGR,DELR 35 COMMON /WINGD/ A(195) 36 COMMON /IBW/ PBW(131),TYPEIN,NACAW(80),NPTS,XCORD(50), 37 1 YUPPER(50),YLOWER(50) 38 COMMON /IBH/ PBH(131),HTYPE,NACAH(80) 39 COMMON /IBV/ PBV(131),VTYPE,NACAV(80) 40 COMMON /IVF/ PVF(131),VFTYP,NACAF(80) 41C 42 REAL NTYPE,NDELTA,NPTS,MEAN,ITYPE,JETFLP 43 REAL LERI,LERO 44 REAL NT,ME,ISP,LFP 45 REAL NENGSP,NOPBPE,NENGSJ,JIALOC,JEVLOC,JEALOC,JINLTA,JEANGL, 46 1 JEVELO,JESTMP,JELLOC,JETOTP,JERAD,KSHARP 47 REAL NMACH,MACH,NALPHA,NGH 48 REAL NX,LAFB,METHOD,NALT,LOOP,KS 49C 50 LOGICAL LAMNRJ 51 LOGICAL VERTUP 52 LOGICAL CROT,LAMNR 53 LOGICAL CAMBER,CAMH,CAMV 54C 55 DIMENSION MEAN(50),THICK(50) 56 DIMENSION TIME(10),FC(10),ALPHA(10),LAMNRJ(10) 57 DIMENSION DELTA(10),CPRMEI(10),CPRMEO(10),SCLD(10),SCMD(10) 58 DIMENSION DELTAD(10),DELTAL(10),DELTAR(10),DELTAS(10),XSOC(10), 59 1 HSOC(10),HDELTA(10) 60 DIMENSION DELJET(10),EFFJET(10),CAPINB(10),CAPOUT(10),DOBDEF(10) 61 EQUIVALENCE (CAMH,HTIN(64)),(CAMV,VTIN(64)) 62 EQUIVALENCE (DELTA(1),DELTAD(1),F(1)),(PHETE,F(11)), 63 1 (CHRDFI,F(12)),(CHRDFO,F(13)),(SPANFI,F(14)), 64 2 (SPANFO,F(15)),(NDELTA,F(16)),(FTYPE,F(17)), 65 3 (STYPE,F(18)),(SCLD(1),DELTAL(1),F(19)), 66 4 (SCMD(1),DELTAR(1),F(29)),(CPRMEI(1),DELTAS(1),F(39)), 67 5 (CPRMEO(1),XSOC(1),F(49)),(CB,XSPRME,F(59)), 68 6 (TC,HSOC(1),F(60)),(PHETEP,F(61)),(NTYPE,F(62)) 69 EQUIVALENCE (F(1),ALITD),(F(2),XHL),(F(3),TWOTI),(F(4),CF), 70 1 (F(5),HDELTA(1)),(F(15),LAMNR),(F(16),HNDLTA) 71 EQUIVALENCE (TIME(1),F(1)),(NT,F(11)), 72 1 (FC(1),F(12)),(ALPHA(1),F(22)), (ME,F(32)),(ISP,F(33)), 73 2 (SPAN,F(34)),(PHE,F(35)),(GP,F(36)),(CC,F(37)),(LFP,F(38)), 74 3 (LAMNRJ(1),F(39)),(CMU,F(63)),(DELJET(1),F(64)), 75 4 (JETFLP,F(74)),(EFFJET(1),F(75)),(CAPINB(1),F(85)), 76 5 (CAPOUT(1),F(95)),(DOBDEF(1),F(105)),(DOBCIN,F(115)), 77 6 (DOBCOT,F(116)) 78 EQUIVALENCE (CMO,CM0),(CMOT,CM0T),(CLAMO,CLAM0) 79 EQUIVALENCE (MEAN(1),YUPPER(1)),(THICK(1),YLOWER(1)) 80 EQUIVALENCE (ALPHAO,ALPHA0) 81C 82C*** COMPUTATIONAL BLOCKS 83C 84 COMMON /CASEID/ IDCSE(74), KOUNT, NAMSV(100), DIM 85 COMMON /BDATA/ BD(762) 86 COMMON /EXPER/ KLIST, NLIST(100), NNAMES, IMACH, MDATA, 87 1 KBODY, KWING, KHT, KVT, KWB, KDWASH(3), 88 2 ALPOW, ALPLW, ALPOH, ALPLH 89 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND 90 COMMON /FLOLOG/ FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 91 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPN,SUPERS,SUBSON, 92 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 93 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 94 4 VFPL,VFSC,CTAB,PLOT 95 COMMON /ERROR/ IERR,GONOGO,IEND,DMPALL,DPB,DPA,DPBD,DPAVF, 96 1 DPFACT,DPWBT,DPBHT,DPAVT,DPAHT,DPC,DPD,DPWB, 97 2 DPCHT,DPDHT,DPDYNH,SAVE,DMPCSE,DPDVT,DPGR,DPLB, 98 3 DPPW,DPSTB,DPSBD,DPSLG,DPSWB,DPSTP,DPDWA,DPSTG, 99 4 DPSLA,DPTRA,DPEXPD,DPDVF,DPFLP,DPFHG,DPFCM,DPTCD, 100 5 DPFLA,DPTRM,DPSPR,DPTRN,DPTRM2,DPHYP,DPDYN,DPJET, 101 6 DPHB,DPSHB,DPTRAH,DPSTBH,DPSEC,DPSLAH,DPINPT, 102 7 DPFLC,DPOPTN,DPSYN,DPBDIN,DPWGIN,DPVTIN,DPTVT, 103 8 DPVFIN,DPHTIN,DPPWIN,DPLBIN,DPF,DPIOM, 104 9 DPIBDY,DPIWG,DPIHT,DPIVT,DPIVF,DPIBW,DPIBH,DPIBV, 105 A DPIBWH,DPIBWV,DPITOT,DPIPWR,DPIDWH,LIST,LEXTRP 106C 107 LOGICAL FLTC,OPTI,BO,WGPL,WGSC,SYNT,HTPL,HTSC,VTPL,VTSC, 108 1 HEAD,PRPOWR,JETPOW,LOASRT,TVTPN,SUPERS,SUBSON, 109 2 TRANSN,HYPERS,SYMFP,ASYFP,TRIMC,TRIM,DAMP, 110 3 HYPEF,TRAJET,BUILD,FIRST,DRCONV,PART, 111 4 VFPL,VFSC,CTAB,PLOT 112 LOGICAL IERR,GONOGO,IEND,DMPALL,DPB,DPA,DPBD,DPAVF, 113 1 DPFACT,DPWBT,DPBHT,DPAVT,DPAHT,DPC,DPD,DPWB, 114 2 DPCHT,DPDHT,DPDYNH,SAVE,DMPCSE,DPDVT,DPGR,DPLB, 115 3 DPPW,DPSTB,DPSBD,DPSLG,DPSWB,DPSTP,DPDWA,DPSTG, 116 4 DPSLA,DPTRA,DPEXPD,DPDVF,DPFLP,DPFHG,DPFCM,DPTCD, 117 5 DPFLA,DPTRM,DPSPR,DPTRN,DPTRM2,DPHYP,DPDYN,DPJET, 118 6 DPHB,DPSHB,DPTRAH,DPSTBH,DPSEC,DPSLAH,DPINPT, 119 7 DPFLC,DPOPTN,DPSYN,DPBDIN,DPWGIN,DPVTIN,DPTVT, 120 8 DPVFIN,DPHTIN,DPPWIN,DPLBIN,DPF,DPIOM, 121 9 DPIBDY,DPIWG,DPIHT,DPIVT,DPIVF,DPIBW,DPIBH,DPIBV, 122 A DPIBWH,DPIBWV,DPITOT,DPIPWR,DPIDWH,LIST,LEXTRP 123 LOGICAL TEST 124 LOGICAL EXPSWT,SSAVE,NONE 125 LOGICAL LOGCOM(10), LEQV(81) 126 INTEGER DIM, IDCSE, KASE(6) 127 INTEGER EXTRAP 128 EQUIVALENCE (BD(81),ALPCA) 129 EQUIVALENCE (LEQV(1),IERR) 130 EQUIVALENCE (LOGCOM(1),FLTC) 131C 132 DIMENSION EXTRAP(12) 133 DIMENSION XTYPE(4),NUM(10),IDIM(3),IDIMT(8),NMLIST(8) 134 DIMENSION NCHR(23),NLOC(23),NK(24) 135 DIMENSION KOL(80),ISAVE(4),NEXT(9),KEY(138),ITRIM(4),IDAMP(4) 136 DIMENSION IBUILD(5),INACA(4),NACAT(4),IDERD(9),IDERR(9) 137 DIMENSION NAMORD(300),IPART(4) 138 DIMENSION IDMP(8),IDMC(4),IPLOT(4) 139 DIMENSION KEYDP(224), NDP(75) 140 DIMENSION KEYARY(136), NDPARY(48) 141 DIMENSION KEYINP(47), NDPINP(13) 142 DIMENSION KEYIOM(41), NDPIOM(14) 143 EQUIVALENCE (KEYDP( 1 ),KEYARY(1)), (NDP(1 ),NDPARY(1)) 144 EQUIVALENCE (KEYDP(137),KEYINP(1)), (NDP(49),NDPINP(1)) 145 EQUIVALENCE (KEYDP(184),KEYIOM(1)), (NDP(62),NDPIOM(1)) 146 DATA XTYPE /4HSTRA,4HDOUB,4HCRAN,4HCURV/ 147 DATA NCHR /2*6,4,9*6,5,2*6,4,7*6/ 148 DATA NK /24*0/ 149 DATA NLOC /4,10,16,20,26,32,38,44,50,56,62,68,74,79,85,91,97, 150 1 103,109,115,121,127,133 / 151 DATA NNAM /23/ 152C 153 DATA EXTRAP /4HP ,4HR ,4HI ,4HN ,4HT ,4H , 154 1 4HE ,4HX ,4HT ,4HR ,4HA ,4HP / 155 DATA IBUILD /4HB ,4HU ,4HI ,4HL ,4HD / 156 DATA INACA /4HN ,4HA ,4HC ,4HA / 157 DATA NACAT /4HW ,4HH ,4HV ,4HF / 158 DATA IDERD /4HD ,4HE ,4HR ,4HI ,4HV ,4H , 159 1 4HD ,4HE ,4HG / 160 DATA IDERR /4HD ,4HE ,4HR ,4HI ,4HV ,4H , 161 1 4HR ,4HA ,4HD / 162 DATA IPART /4HP ,4HA ,4HR ,4HT / 163 DATA IDIM /4HD ,4HI ,4HM / 164 DATA IDIMT /4HF ,4HT ,4HI ,4HN ,4HM ,4H , 165 1 4HC ,4HM / 166 DATA NMLIST /4HN ,4HA ,4HM ,4HE ,4HL , 167 1 4HI ,4HS ,4HT / 168 DATA KASE /4HC ,4HA ,4HS ,4HE ,4HI ,4HD / 169 DATA ISAVE /4HS ,4HA ,4HV ,4HE / 170 DATA NEXT /4HN ,4HE ,4HX ,4HT ,4H ,4HC ,4HA , 171 1 4HS ,4HE / 172 DATA IDMP /4HD ,4HU ,4HM ,4HP ,4H ,4HA ,4HL , 173 1 4HL / 174 DATA IDMC /4HC ,4HA ,4HS ,4HE / 175 DATA IPLOT /4HP ,4HL ,4HO ,4HT / 176 DATA IBLNK /4H /,KOMMA /4H, / 177 DATA ITRIM /4HT ,4HR ,4HI ,4HM / 178 DATA IDAMP /4HD ,4HA ,4HM ,4HP / 179 DATA NUM /4H0 ,4H1 ,4H2 ,4H3 ,4H4 ,4H5 ,4H6 , 180 1 4H7 ,4H8 ,4H9 / 181 DATA KEYARY / 182 1 4HB ,4HA ,4HB ,4HD ,4HA ,4HV ,4HF ,4HF , 183 2 4HA ,4HC ,4HT ,4HW ,4HB ,4HT ,4HB ,4HH , 184 3 4HT ,4HA ,4HV ,4HT ,4HA ,4HH ,4HT ,4HC , 185 4 4HD ,4HW ,4HB ,4HC ,4HH ,4HT ,4HD ,4HH , 186 5 4HT ,4HD ,4HY ,4HN ,4HH ,4HD ,4HV ,4HT , 187 6 4HG ,4HR ,4HL ,4HB ,4HP ,4HW ,4HS ,4HT , 188 7 4HB ,4HS ,4HB ,4HD ,4HS ,4HL ,4HG ,4HS , 189 8 4HW ,4HB ,4HS ,4HT ,4HP ,4HD ,4HW ,4HA , 190 9 4HS ,4HT ,4HG ,4HS ,4HL ,4HA ,4HT ,4HR , 191 A 4HA ,4HX ,4HP ,4HD ,4HD ,4HV ,4HF ,4HF , 192 B 4HL ,4HP ,4HF ,4HH ,4HG ,4HF ,4HC ,4HM , 193 C 4HT ,4HC ,4HD ,4HF ,4HL ,4HA ,4HT ,4HR , 194 D 4HM ,4HS ,4HP ,4HR ,4HT ,4HR ,4HN ,4HT , 195 E 4HR ,4HM ,4H2 ,4HH ,4HY ,4HP ,4HD ,4HY , 196 F 4HN ,4HJ ,4HE ,4HT ,4HH ,4HB ,4HS ,4HH , 197 G 4HB ,4HT ,4HR ,4HA ,4HH ,4HS ,4HT ,4HB , 198 H 4HH ,4HS ,4HE ,4HC ,4HS ,4HL ,4HA ,4HH / 199 DATA NDPARY / 1,1,2,3,4,4*3,2*1,2,2*3,4,3,3*2,19*3,4,3*3,2,3, 200 1 4,4,3,4 / 201C 202 DATA KEYINP / 203 1 4HI ,4HN ,4HP ,4HT ,4HF ,4HL ,4HC ,4HO , 204 2 4HP ,4HT ,4HN ,4HS ,4HY ,4HN ,4HA ,4HB , 205 3 4HD ,4HI ,4HN ,4HW ,4HG ,4HI ,4HN ,4HV , 206 4 4HT ,4HI ,4HN ,4HT ,4HV ,4HT ,4HV ,4HF , 207 5 4HI ,4HN ,4HH ,4HT ,4HI ,4HN ,4HP ,4HW , 208 6 4HI ,4HN ,4HL ,4HB ,4HI ,4HN ,4HF / 209 DATA NDPINP / 4,3,5*4,3,4*4,1 / 210C 211 DATA KEYIOM / 212 1 4HI ,4HO ,4HM ,4HB ,4HO ,4HD ,4HY ,4HW , 213 2 4HI ,4HN ,4HG ,4HH ,4HT ,4HV ,4HT ,4HV , 214 3 4HF ,4HB ,4HW ,4HB ,4HH ,4HB ,4HV ,4HB , 215 4 4HW ,4HH ,4HB ,4HW ,4HV ,4HB ,4HW ,4HH , 216 5 4HV ,4HP ,4HO ,4HW ,4HR ,4HD ,4HW ,4HS , 217 6 4HH / 218 DATA NDPIOM / 3,4,4,6*2,3,3,4,4,4 / 219 DATA KEY / 220 1 4HE ,4HN ,4HD ,4HF ,4HL ,4HT ,4HC ,4HO , 221 2 4HN ,4HO ,4HP ,4HT ,4HI ,4HN ,4HS ,4HB , 222 3 4HO ,4HD ,4HY ,4HW ,4HG ,4HP ,4HL ,4HN , 223 4 4HF ,4HW ,4HG ,4HS ,4HC ,4HH ,4HR ,4HS , 224 5 4HY ,4HN ,4HT ,4HH ,4HS ,4HH ,4HT ,4HP , 225 6 4HL ,4HN ,4HF ,4HH ,4HT ,4HS ,4HC ,4HH , 226 7 4HR ,4HV ,4HT ,4HP ,4HL ,4HN ,4HF ,4HV , 227 8 4HT ,4HS ,4HC ,4HH ,4HR ,4HP ,4HR ,4HO , 228 9 4HP ,4HW ,4HR ,4HJ ,4HE ,4HT ,4HP ,4HW , 229 A 4HR ,4HL ,4HA ,4HR ,4HW ,4HB ,4HG ,4HR , 230 B 4HN ,4HD ,4HE ,4HF ,4HT ,4HV ,4HT ,4HP , 231 C 4HA ,4HN ,4HE ,4HX ,4HP ,4HR ,4H ,4H , 232 D 4HS ,4HY ,4HM ,4HF ,4HL ,4HP ,4HA ,4HS , 233 E 4HY ,4HF ,4HL ,4HP ,4HH ,4HY ,4HP ,4HE , 234 F 4HF ,4HF ,4HT ,4HR ,4HN ,4HJ ,4HE ,4HT , 235 G 4HV ,4HF ,4HP ,4HL ,4HN ,4HF ,4HV ,4HF , 236 H 4HS ,4HC ,4HH ,4HR ,4HC ,4HO ,4HN ,4HT , 237 I 4HA ,4HB / 238C 239C ----TEST FOR NEXT CASE OR DUMP REQUEST CARD. 240C 241 DO 1000 I=1,9 242 IF(KOL(I).NE.NEXT(I)) GO TO 1010 243 1000 CONTINUE 244 GO TO 1450 245C 246 1010 DO 1020 I=1,8 247 IF(KOL(I).NE.IDMP(I)) GO TO 1040 248 1020 CONTINUE 249C 250C ----TEST TO BE SURE THE REST OF THE CARD IS BLANK 251C 252 DO 1030 I=9,80 253 IF(KOL(I).NE.IBLNK) GO TO 1070 254 1030 CONTINUE 255 DMPALL=.TRUE. 256 GO TO 1430 257C 258C ----TEST FOR KEY WORD DUMP 259C 260 1040 IF(I.LT.6) GO TO 1160 261C 262C ----TEST FOR DUMP CASE CARD 263C 264 J=1 265 DO 1050 L=6,9 266 IF(KOL(L).NE.IDMC(J)) GO TO 1070 267 1050 J=J+1 268C 269C ----TEST FOR REST OF CARD BLANK 270C 271 DO 1060 I=10,80 272 IF(KOL(I).NE.IBLNK) GO TO 1070 273 1060 CONTINUE 274 DMPCSE=.TRUE. 275 GO TO 1430 276 1070 I=5 277 1080 I=I+1 278 IF(I.GT.80) GO TO 1430 279 IF(KOL(I).EQ.IBLNK.OR.KOL(I).EQ.KOMMA)GO TO 1080 280 NS=I 281 NCHAR=1 282 1090 I=I+1 283 IF(I.GT.80)GO TO 1100 284 IF(KOL(I).EQ.IBLNK.OR.KOL(I).EQ.KOMMA) GO TO 1100 285 NCHAR=NCHAR+1 286 GO TO 1090 287 1100 IF(NCHAR.LT.7) GO TO 1120 288C 289C ----HERE FOR ERROR 290C 291 1110 M=I-1 292 WRITE(6,1490)(KOL(J),J=1,80),(KOL(J),J=NS,M) 293 GO TO 1150 294 1120 ISAV=KOL(NS+NCHAR) 295 KOL(NS+NCHAR)=IBLNK 296 LOCDP = 1 297 DO 1130 J=1,75 298 IF(TEST(KOL(NS),KEYDP(LOCDP),NDP(J)))GO TO 1140 299 LOCDP = LOCDP+NDP(J) 300 1130 CONTINUE 301 KOL(NS+NCHAR)=ISAV 302 GO TO 1110 303 1140 IF(J.GT.15)J=J+2 304 LEQV(J+4)=.TRUE. 305 KOL(NS+NCHAR)=ISAV 306 1150 IF(I.GT.80)GO TO 1430 307 GO TO 1080 308C 309C ----TEST FOR SAVE CARD 310C 311 1160 DO 1170 I=1,4 312 IF(KOL(I).NE.ISAVE(I))GO TO 1180 313 1170 CONTINUE 314 SAVE=.TRUE. 315 GO TO 1430 316C 317C ----TEST FOR CASE IDENTIFICATION CARDS 318C 319 1180 DO 1190 I=1,6 320 IF(KOL(I).NE.KASE(I))GO TO 1210 321 1190 CONTINUE 322C 323C ----STORE IDENTIFICATION 324C 325 DO 1200 I=7,80 326 1200 IDCSE(I-6)=KOL(I) 327 HEAD=.TRUE. 328 GO TO 1430 329 1210 DO 1220 I=1,4 330 IF(KOL(I).NE.ITRIM(I))GO TO 1230 331 1220 CONTINUE 332 TRIMC=.TRUE. 333 GO TO 1430 334 1230 DO 1240 I=1,4 335 IF(KOL(I).NE.IDAMP(I))GO TO 1250 336 1240 CONTINUE 337 DAMP=.TRUE. 338 GO TO 1430 339 1250 DO 1260 I=1,4 340 IF(KOL(I) .NE. IPART(I)) GO TO 1270 341 1260 CONTINUE 342 PART=.TRUE. 343 GO TO 1430 344C 345C*** TEST FOR - PRINT EXTRAP CARD 346C 347 1270 DO 1280 I=1,12 348 IF(KOL(I) .NE. EXTRAP(I)) GO TO 1290 349 1280 CONTINUE 350 LEXTRP=.TRUE. 351 GO TO 1430 352 1290 DO 1300 I=1,5 353 IF(KOL(I) .NE. IBUILD(I)) GO TO 1310 354 1300 CONTINUE 355 BUILD=.TRUE. 356 GO TO 1430 357 1310 DO 1320 I=1,4 358 IF(KOL(I) .NE. INACA(I)) GO TO 1330 359 1320 CONTINUE 360 I=24 361 GO TO 1440 362 1330 DO 1340 I=1,9 363 IF(KOL(I) .NE. IDERD(I)) GO TO 1350 364 1340 CONTINUE 365 DRCONV = .FALSE. 366 GO TO 1430 367 1350 DO 1360 I=1,9 368 IF(KOL(I) .NE. IDERR(I)) GO TO 1370 369 1360 CONTINUE 370 DRCONV = .TRUE. 371 GO TO 1430 372 1370 CONTINUE 373 DO 1380 I=1,3 374 IF(KOL(I) .NE. IDIM(I)) GO TO 1390 375 1380 CONTINUE 376 DIM = 0 377 IF((KOL(5) .EQ. IDIMT(1)) .AND. (KOL(6) .EQ. IDIMT(2))) DIM = 1 378 IF((KOL(5) .EQ. IDIMT(3)) .AND. (KOL(6) .EQ. IDIMT(4))) DIM = 2 379 IF((KOL(5) .EQ. IDIMT(5)) .AND. (KOL(6) .EQ. IDIMT(6))) DIM = 3 380 IF((KOL(5) .EQ. IDIMT(7)) .AND. (KOL(6) .EQ. IDIMT(8))) DIM = 4 381 IF(SSAVE .AND. (ISDIM .NE. DIM)) WRITE(6,1470) 382 IF(DIM .NE. 0) GO TO 1430 383 GO TO 1410 384 1390 CONTINUE 385 DO 1400 I=1,8 386 IF(KOL(I) .NE. NMLIST(I)) GO TO 1410 387 1400 CONTINUE 388 LIST = .TRUE. 389 GO TO 1430 390 1410 CONTINUE 391 DO 1420 I=1,4 392 IF(KOL(I) .NE. IPLOT(I)) GO TO 1460 393 1420 CONTINUE 394 PLOT = .TRUE. 395 1430 JRETRN=1 396 RETURN 397 1440 JRETRN=2 398 RETURN 399 1450 JRETRN=3 400 RETURN 401 1460 CONTINUE 402 GONOGO = .FALSE. 403 WRITE(6,1480)(KOL(I),I=1,80) 404 JRETRN=4 405 RETURN 406C 407 1470 FORMAT(41H0 *** WARNING *** THIS IS A SAVE CASE AND, 408 1 38H THE DIMENSION SYSTEM HAS BEEN CHANGED/) 409 1480 FORMAT(20H ERROR IN CARD BELOW/1H ,80A1) 410 1490 FORMAT(21H ERROR-THE CARD BELOW/1H ,80A1/53H CONTAINS ILLEGAL VARI 411 1ABLE NAME TO BE DUMPED.NAME IS ,30A1) 412 END 413