ppp.for

non linear fem-adinla

 408 CONTINUE                                                          00001630
 409 CONTINUE                                                          00001640
     GOTO 800                                                          00001650
 410 CALL EVECT1                                                       00001660
     GOTO 800                                                          00001670
                                                                       00001680
 110 IF(NCMD.GT.20) GOTO 120                                           00001690
                                                                       00001700
     NCMD1=NCMD-10                                                     00001710
     GOTO (411,412,413,414,415,416,417,418,419,420), NCMD1             00001720
                                                                       00001730
 411 CALL FRAME                                                        00001740
     GOTO 800                                                          00001750
 412 CALL SUBF (0)                                                     00001760
     GOTO 800                                                          00001770
 413 CALL VIEW1                                                        00001780
     GOTO 800                                                          00001790
 414 CONTINUE                                                          00001800
 415 CONTINUE                                                          00001810
 416 CONTINUE                                                          00001820
 417 CALL ZONE1                                                        00001830
     GOTO 800                                                          00001840
 418 CONTINUE                                                          00001850
 419 CALL MESH1                                                        00001860
     GOTO 800                                                          00001870
 420 CALL APAXIS                                                       00001880
     GOTO 800                                                          00001890
                                                                       00001900
 120 IF (NCMD.GT.35) GOTO 436                                          00001910
                                                                       00001920
     NCMD2=NCMD-20                                                     00001930
     GOTO(421,422,423,424,425,426,427,428,429,430                      00001940
    1    ,431,432,433,434,435), NCMD2                                  00001950
                                                                       00001960
 421 CALL TEXT                                                         00001970
     GOTO 800                                                          00001980
 422 CALL NHIST1 (IA(I08))                                             00001990
     GOTO 800                                                          00002000
 423 CALL EHIST1                                                       00002010
     GOTO 800                                                          00002020
 424 CALL NPOIN1                                                       00002030
     GOTO 800                                                          00002040
 425  CALL NLINE1                                                      00002050
     GOTO 800                                                          00002060
 426 CALL EPOIN1                                                       00002070
     GOTO 800                                                          00002080
 427 CALL ELINE1                                                       00002090
     GOTO 800                                                          00002100
 432 CONTINUE                                                          00002110
 433 CONTINUE                                                          00002120
 428 CALL NLIST1                                                       00002130
     GOTO 800                                                          00002140
 429 CALL GLIST1                                                       00002150
     GOTO 800                                                          00002160
 430 CALL EINFO1                                                       00002170
     GOTO 800                                                          00002180
 434 CONTINUE                                                          00002190
 435 CONTINUE                                                          00002200
 431 CALL ELIST1                                                       00002210
     GOTO 800                                                          00002220
                                                                       00002230
 436 IF (NCMD.GT.44) GOTO 445                                          00002240
     CALL VARES1                                                       00002250
     GOTO 800                                                          00002260
 445 IF (NCMD.GT.45) GOTO 800                                          00002270
       CALL MLIST1                                                     00002280
       GOTO 800                                                        00002290
                                                                       00002300
                                                                       00002310
 800 CONTINUE                                                          00002320
     IF (LINE.NE.32766) WRITE (NFLIST,2070)                            00002330
     DO 805 I=2,20                                                     00002340
       IDIM(I) = 0                                                     00002350
 805   NDIM(I) = 0                                                     00002360
     IF (IOPEN.EQ.1) CALL SIZE(I1)                                     00002370
     IF (IERROR.EQ.0) GOTO 100                                         00002380
     IF (IERROR.EQ.2) WRITE (NFLOG,2060)                               00002390
     IF (IERROR.NE.0) WRITE (NFLOG,2080)                               00002400
     IERROR = 0                                                        00002410
 810 IF (IBATCH.LT.1) GOTO 100                                         00002420
                                                                       00002430
           READ REST OF INPUT FILE IF BATCH MODE FOR SYNTAX CHECK      00002440
          CONTROL IBATCH=0  WILL BE EXECUTED                           00002450
                                                                       00002460
     WRITE (NFLOG,2030)                                                00002470
 820 CALL COMND                                                        00002480
     IF (NCMD.EQ.2) GOTO 8000                                          00002490
     IF (NCMD.EQ.5.AND.ITYPE(1).EQ.INTEG.AND.INTV(1).EQ.0)             00002500
    1         GOTO 105                                                 00002510
     GOTO 820                                                          00002520
                                                                       00002530
 900 WRITE (NFLOG,2010)                                                00002540
     GOTO 800                                                          00002550
                                                                       00002560
8000 CONTINUE                                                          00002570
     CALL CGRAPH (IPLCLO)                                              00002580
     CALL DBCLOS                                                       00002590
     STOP                                                              00002600
                                                                       00002610
2010 FORMAT(51H ***ACTION: COMMAND NOT EXECUTED - INPUT DATA ERROR)    00002620
2020 FORMAT(///28H    ADINA-PLOT  VERSION 0.00)                        00002630
2030 FORMAT(49H ***ERROR ACTION IN BATCH MODE: READ INPUT TO END)      00002640
2050 FORMAT (26H ***ERROR: FRAME NOT GIVEN)                            00002650
2040 FORMAT (28H ***ERROR: DATABASE NOT OPEN)                          00002660
2060 FORMAT (34H ***ERROR: INVALID PARAMETER VALUE)                    00002670
2070 FORMAT(///)                                                       00002680
2080 FORMAT(1H )                                                       00002690
     END                                                               00002700
***ADD:CDC***                                                          00002710
DECK BLDATA                                                            00002720
***END:CDC***                                                          00002730
     BLOCK DATA                                                        00002740
     COMMON /CNTRL/ IBATCH,NBSU,LSTC,LSTF,LSTDB,ISURL,ITWO,LINPAG,LINE 00002750
     COMMON /EPS/ EPS                                                  00002760
     COMMON /FILES/ NFREAD,NFECHO,NFLOG,NFLIST,LUNODE,LUELEM           00002770
     COMMON /PARAM/ REALV(100),NCMD,NLASTP,ITYPE(20),INTV(100),        00002780
    1               IANUMV(160),LGHSTR,INTEG,IREAL,IANUM,ISTRIN,IOMIT  00002790
     COMMON /CALLP/ NAMZON(8),NAMERC(8),                               00002800
    1               IBITZ,IWHOLE,ICALL,IXPAR                           00002810
     COMMON /SICODE/ ICODE(47)                                         00002820
     COMMON /FIELDC/ REALI,INPREC(80),INPOS,ITYPEI,INTI,IANUMI(128),   00002830
    1               KEYI(8),NPOSRE,INECHO,MXSIGI,MXSIGR,MXSIGE,MXSTRL, 00002840
    2               ISTRIL,NFIELD,NPOSIN                               00002850
     COMMON /PLOTCO/ GSCALE,DSCALE,XPV,YPV,PUNIT,HEIGHT,PMARG,AXEDGE,  00002860
    1              XSF,YSF,XFMAX,YFMAX,XF1,YF1,XPMAX,YPMAX,            00002870
    3              XSMIN,XSMAX,YSMIN,YSMAX,XPSAVE,YPSAVE,VIEW(3,3),    00002880
    2              NFPLOT,IONPLT,NSYSPL,NDEVPL,MORIGO,NGPTS            00002890
     COMMON /ERROR/ IERROR                                             00002900
     COMMON /MEMORY/ MTOT,LPROG,MEMPRT,MEMMAX,MEMNOW                   00002910
     COMMON /DB/ IOPEN,NFDB,INDXST,IXTNOW,LGP,NWRITS,NREADS,           00002920
    1            LDBC,LDBCTR,LDBCTI,IPHCHK,INSTRI,INRUSE,INSTRU,       00002930
    2            MSUBF,MVIEW,MAXIS,MLINEN,MLINEE,MVAR,MRES,LSKEW,MIDSPL00002940
     COMMON /IGPNAM/ IGPNA(50)                                         00002950
                                                                       00002960
     DATA LINPAG/42/                                                   00002970
     DATA IBATCH/1/                                                    00002980
     DATA NFDB,NFREAD,NFECHO,NFLOG,NFLIST,NFPLOT,LUNODE,LUELEM         00002990
    1     /  1,     5,     6,    6,     6,    50,    60,    60/        00003000
     DATA NPOSRE/72/                                                   00003010
     DATA INECHO/1/                                                    00003020
     DATA MXSIGI,MXSIGR,MXSIGE/6,6,38/                                 00003030
     DATA HEIGHT/0.25/                                                 00003040
     DATA PMARG/1.5/                                                   00003050
     DATA AXEDGE/1.5/                                                  00003060
     DATA XSMIN,XSMAX,YSMIN,YSMAX/0.,999.,0.,999./                     00003070
     DATA XSF,YSF,XFMAX,YFMAX/0.,0., 29.7, 21.0/                       00003080
     DATA MORIGO/0/                                                    00003090
     DATA NSYSPL/0/                                                    00003100
     DATA NDEVPL/0/                                                    00003110
     DATA MIDSPL/1/                                                    00003120
     DATA LSKEW/1/                                                     00003130
     DATA NBSU/30/                                                     00003140
     DATA MEMPRT/1/                                                    00003150
                                                                       00003160
     DATA MSUBF,MVIEW,MLINEN,MLINEE,MVAR,MRES                          00003170
    1   /   10,   10,   10,    10,     20,   5/                        00003180
     DATA EPS/1E-5/                                                    00003190
     DATA LSTC,LSTF/0,0/                                               00003200
                                                                       00003210
          ITWO=2 IF PORTHOLE FILE FROM ADINA IS IN DOUBLE PRECISION    00003220
          TO BE CONVERTED TO SINGLE PRECISION IN ADINA-PLOT            00003230
                                                                       00003240
***DEL:DPR***                                                          00003250