📄 ppp.for
字号:
***ADD:CDC*** PLOTMAIN 00000010
DECK ADPLOT 00000020
PROGRAM ADPLOT (INPUT=512/80,OUTPUT,TAPE1,TAPE5=INPUT, 00000030
1 TAPE6=OUTPUT,TAPE50=512,TAPE60,TAPE61=512) 00000040
***END:CDC*** 00000050
***VERSION 0.00 BASE,IBM,DPR*** DATE 82.06.04 00000060
00000070
00000080
00000090
A D I N A - P L O T 00000100
00000110
00000120
THIS PROGRAM IS IN ITS ENTIRETY PROPRIETARY TO 00000130
AND IS SUPPORTED AND MAINTAINED BY 00000140
00000150
ADINA ENGINEERING AB (SWEDEN) 00000160
ADINA ENGINEERING INC (USA) 00000170
00000180
ADINA ENGINEERING MAKES NO WARRANTY WHATSOEVER , EXPRESSED OR 00000190
IMPLIED, THAT THE PROGRAM AND ITS DOCUMENTATION INCLUDING ANY 00000200
MODIFICATIONS AND UPDATES ARE FREE FROM ERRORS AND DEFECTS.IN 00000210
NO EVENT SHALL ADINA ENGINEERING BECOME LIABLE TO THE USER 00000220
OR ANY PARTY FOR ANY LOSS , INCLUDING BUT NOT LIMITED TO LOSS 00000230
OF TIME , MONEY OR GOODWILL , WHICH MAY ARISE FROM THE USE OF 00000240
THE PROGRAM AND ITS DOCUMENTATION INCLUDING ANY MODIFICATIONS 00000250
AND UPDATES. 00000260
00000270
00000280
ADINA ENGINEERING AB ADINA ENGINEERING INC 00000290
MUNKGATAN 20D 71 ELTON AVENUE 00000300
S-722 12 WATERTOWN 00000310
VASTERAS SWEDEN MASSACHUSETTS USA 00000320
TEL 021-14 40 50 TEL (617) 926-5199 00000330
TELEX 40630 ADINA S 00000340
00000350
00000360
00000370
00000380
DIMENSION IA(1),IDIM(1),NDIM(1),NCMDPL(15) 00000390
00000400
COMMON /CNTRL/ IBATCH,NBSU,LSTC,LSTF,LSTDB,ISURL,ITWO,LINPAG,LINE 00000410
COMMON /EPS/ EPS 00000420
COMMON /FILES/ NFREAD,NFECHO,NFLOG,NFLIST,LUNODE,LUELEM 00000430
COMMON /PARAM/ REALV(100),NCMD,NLASTP,ITYPE(20),INTV(100), 00000440
1 IANUMV(160),LGHSTR,INTEG,IREAL,IANUM,ISTRIN,IOMIT 00000450
COMMON /CALLP/ NAMZON(8),NAMERC(8), 00000460
1 IBITZ,IWHOLE,ICALL,IXPAR 00000470
COMMON /SICODE/ I000,I111,I222,I333,I444,I555,I666,I777,I888,I999,00000480
1 IBLANK,IAAA,IBBB,ICCC,IDDD,IEEE,IFFF,IGGG,IHHH,IIII,00000490
2 IJJJ,IKKK,ILLL,IMMM,INNN,IOOO,IPPP,IQQQ,IRRR,ISSS,00000500
3 ITTT,IUUU,IVVV,IWWW,IXXX,IYYY,IZZZ,IPOINT,ICOMMA, 00000510
4 IPLUS,IMINUS,IEQUAL,ILPAR,IRPAR,ISLASH,IASTER,IAPOST00000520
COMMON /FIELDC/ REALI,INPREC(80),INPOS,ITYPEI,INTI,IANUMI(128), 00000530
1 KEYI(8),NPOSRE,INECHO,MXSIGI,MXSIGR,MXSIGE,MXSTRL, 00000540
2 ISTRIL,NFIELD,NPOSIN 00000550
COMMON /PLOTCO/ GSCALE,DSCALE,XPV,YPV,PUNIT,HEIGHT,PMARG,AXEDGE, 00000560
1 XSF,YSF,XFMAX,YFMAX,XF1,YF1,XPMAX,YPMAX, 00000570
3 XSMIN,XSMAX,YSMIN,YSMAX,XPSAVE,YPSAVE,VIEW(3,3), 00000580
2 NFPLOT,IONPLT,NSYSPL,NDEVPL,MORIGO,NGPTS 00000590
COMMON /ERROR/ IERROR 00000600
COMMON /MEMORY/ MTOT,LPROG,MEMPRT,MEMMAX,MEMNOW 00000610
COMMON /DB/ IOPEN,NFDB,INDXST,IXTNOW,LGP,NWRITS,NREADS, 00000620
1 LDBC,LDBCTR,LDBCTI,IPHCHK,INSTRI,INRUSE,INSTRU, 00000630
2 MSUBF,MVIEW,MAXIS,MLINEN,MLINEE,MVAR,MRES,LSKEW,MIDSPL00000640
COMMON /DBC/ IHED(18),NDAREC,LDAREC,NRECS,NWORDS,NEXREC,NEXTIX, 00000650
1 LIX,LIXT,NSTRI,NSTRUC,NEGIT,NEGAT,NFREQ, 00000660
2 IXGP(50),MXSGP(50), 00000670
3 FILL1 00000680
COMMON /DIM/ I01,I02,I03,I04,I05,I06,I07,I08,I09,I010,I011, 00000690
1 I1,I2,I3,I4,I5,I6,I7,I8,I9,I10,I11,I12,I13,I14,I15, 00000700
2 I16,I17,I18,I19,I20, 00000710
3 N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N13,N14,N15, 00000720
4 N16,N17,N18,N19,N20 00000730
COMMON /DBCTRL/ DT ,TSTART,NUMNP ,NEQT ,NSUBST,IDOF(6), 00000740
1 NDOF ,NEG ,NMID ,MODEX ,NSTE ,NSTEN , 00000750
2 NSTEE ,NSKEWS,NMIDSS,IEIG ,NSREFB,NEQITB, 00000760
3 NPRIB ,NODSVB,LEMSVB,JDC ,JAC ,JVC , 00000770
4 ISTAT ,JTC ,NDISCE,ITP96 ,MXITAB,MXIDER,MXERES, 00000780
5 NELPAR,MXNP ,MXEG ,MXEL ,MXELNP, 00000790
6 NDOFSA(6),NOUSE(4),FILL2 00000800
COMMON /IGPNAM/ KDBC ,KSUBGP,KDBCTR,KSTRI ,KRSDCO,KTMIDS, 00000810
1 KXYZ ,KIDRN ,KICONA,KNZONE,KNPAR ,KTHICK, 00000820
2 KITABL,KNOD ,KEDATA,KIEZON,KFRQ ,KPHI , 00000830
3 KTIMEN,KDISP ,KVEL ,KACC ,KTEMP ,KTIMEE, 00000840
4 KERES ,KSUBF ,KVIEW ,KAXIS ,KNPOIN,KVARES, 00000850
5 KNAMEZ,KEPOIN,KSXYZ ,KX34 ,KX35 ,KX36 , 00000860
6 KX37 ,KX38 ,KX39 ,KX40 ,KX41 ,KX42 , 00000870
7 KX43 ,KX44 ,KX45 ,KX46 ,KX47 ,KX48 , 00000880
8 KX49 ,KX50 00000890
***DEL:CDY,UDY*** 00000900
* FIX LENGTH OF BLANK COMMON 00000910
COMMON A(50000) 00000920
EQUIVALENCE (A(1),IA(1)) 00000930
EQUIVALENCE (I1,IDIM(1)),(N1,NDIM(1)) 00000940
MTOT = 50000 00000950
***END:CDY,UDY*** 00000960
***ADD:CDY,UDY*** 00000970
* DYNAMIC INCREASE OF BLANK COMMON IN SUBROUTINE SIZE 00000980
COMMON A(10) 00000990
EQUIVALENCE (A(1),IA(1)) 00001000
EQUIVALENCE (I1,IDIM(1)),(N1,NDIM(1)) 00001010
MTOT = 0 00001020
***END:CDY,UDY*** 00001030
DATA NCMDPL/18,19,21,22,23,25,27,40,41,99,99,99,99,99,99/ 00001040
DATA IPLCLO,ISPACE/3,1H / 00001050
***ADD:IBMVS*** 00001060
* 00001070
* ACTIVATE THE FOLLOWING CARD ON IBM VS FORTRAN 00001080
* TO IGNORE ERROR 187 00001090
* 00001100
CALL ERRSET (187,256,-1,1,0,0) 00001110
***END:IBMVS*** 00001120
MEMNOW = 10 00001130
WRITE (NFLOG,2020) 00001140
00001150
READ COMMAND AND PARAMETERS 00001160
00001170
100 CALL COMND 00001180
LINE = 32766 00001190
00001200
IF INPUT ERROR, JUST GO AND PRINT MESSAGE 00001210
00001220
IF(IERROR.NE.0) GOTO 900 00001230
DO 101 I=1,8 00001240
101 NAMERC(I) = ISPACE 00001250
00001260
CHECK THAT DATABASE IS OPEN 00001270
00001280
IF (IOPEN.EQ.1 .OR. NCMD.LT.12) GOTO 102 00001290
WRITE (NFLOG,2040) 00001300
GOTO 810 00001310
00001320
CHECK THAT FRAME IS GIVEN FOR PLOT COMMANDS 00001330
00001340
102 IF (IONPLT.EQ.1) GOTO 105 00001350
DO 103 I=1,15 00001360
IF (NCMD.EQ.NCMDPL(I)) GOTO 104 00001370
103 CONTINUE 00001380
GOTO 105 00001390
104 WRITE (NFLOG,2050) 00001400
GOTO 810 00001410
00001420
00001430
CALL ADINA-PLOT SUBROUTINE 00001440
00001450
00001460
105 IF(NCMD.GT.10) GOTO 110 00001470
00001480
GOTO(401,402,403,404,405,406,407,408,409,410),NCMD 00001490
00001500
401 CONTINUE 00001510
402 CONTINUE 00001520
GOTO 8000 00001530
403 CALL TEST 00001540
GOTO 800 00001550
404 CALL FILE 00001560
GOTO 800 00001570
405 CALL CONTRL 00001580
GOTO 800 00001590
406 CALL DATAB 00001600
GOTO 800 00001610
407 CONTINUE 00001620
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -