dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/dp25.F

3082      1                  IA,PARAM,IPARN,IPARN2,
3117       CHARACTER*4 IPARN
3171       DIMENSION IPARN(*)
3746       CALL COMPIM(IFUNC3,N3,IPASS,PARAM,IPARN,IPARN2,NUMPV,
3780         IHPARN=IPARN(J)
16045      1                PARAM,IPARN,IPARN2,IANGLU,
16108       CHARACTER*4 IPARN
16139       DIMENSION IPARN(*)
16903         CALL COMPIM(IFUNC3,N3,IPASS,PARAM,IPARN,IPARN2,NUMPV,
16928           IF(IHRI11.EQ.IPARN(I).AND.IHRI12.EQ.IPARN2(I))GOTO11619
16932       IPARN(NUMPV)=IHRI11
16939           IF(ILEF11.EQ.IPARN(I).AND.ILEF12.EQ.IPARN2(I))GOTO11629
16943       IPARN(NUMPV)=ILEF11
16951           IF(ILEF21.EQ.IPARN(I).AND.ILEF22.EQ.IPARN2(I))GOTO11639
16955       IPARN(NUMPV)=ILEF21
16974           IHPARN=IPARN(J)
17038           IF(IHRI11.EQ.IPARN(I).AND.IHRI12.EQ.IPARN2(I))GOTO11815
17057           IF(ILEF11.EQ.IPARN(I).AND.ILEF12.EQ.IPARN2(I))GOTO11825
17077           IF(ILEF21.EQ.IPARN(I).AND.ILEF22.EQ.IPARN2(I))THEN
17130      1           IFUNC3,N3,PARAM,IPARN,IPARN2,NUMPV,
17585      1                 MODEL,NUMCHA,PARAM,IPARN,IPARN2,NUMPV,
17619       CHARACTER*4 IPARN
17644       DIMENSION IPARN(*)
17691           WRITE(ICOUT,66)I,PARAM(I),IPARN(I),IPARN2(I)
17727       WRITE(ICOUT,1103)IPARN(ILOCHV),IPARN2(ILOCHV),X(1)
17730       WRITE(ICOUT,1104)IPARN(ILOCVV),IPARN2(ILOCVV),Y(1)
17733       WRITE(ICOUT,1105)IPARN(ILOCHV),IPARN2(ILOCHV)
17765       CALL COMPIM(MODEL,NUMCHA,IPASS,PARAM,IPARN,IPARN2,NUMPV,
17784       CALL COMPIM(MODEL,NUMCHA,IPASS,PARAM,IPARN,IPARN2,NUMPV,
17802       CALL COMPIM(MODEL,NUMCHA,IPASS,PARAM,IPARN,IPARN2,NUMPV,
17821       CALL COMPIM(MODEL,NUMCHA,IPASS,PARAM,IPARN,IPARN2,NUMPV,
17857       WRITE(ICOUT,2103)IPARN(ILOCHV),IPARN2(ILOCHV),X(1)
17860       WRITE(ICOUT,2104)IPARN(ILOCVV),IPARN2(ILOCVV),Y(1)
17863       WRITE(ICOUT,2105)IPARN(ILOCDV),IPARN2(ILOCDV),YD(1)
17866       WRITE(ICOUT,2106)IPARN(ILOCHV),IPARN2(ILOCHV)
17916       CALL COMPIM(MODEL,NUMCHA,IPASS,PARAM,IPARN,IPARN2,NUMPV,
17952       CALL COMPIM(MODEL,NUMCHA,IPASS,PARAM,IPARN,IPARN2,NUMPV,
17987       CALL COMPIM(MODEL,NUMCHA,IPASS,PARAM,IPARN,IPARN2,NUMPV,
18023       CALL COMPIM(MODEL,NUMCHA,IPASS,PARAM,IPARN,IPARN2,NUMPV,