| /dports/graphics/xd3d/xd3d-8.3.1/src/interp/ |
| H A D | foncor.f | 5 SUBROUTINE FONCOR(M,MEXP,MOPN,MOPT,MSYM,ICODE) argument
29 INTEGER M(*),MEXP(*),MOPN(*),MOPT(*),MSYM(*),MTYPE(5) local
52 CALL FONVAR(CITEM(1:LITEM), M(IAR), MEXP, MOPN, ICODE)
60 CALL FONAIT(MEXP(MSYM(I)-20 000), MEXP, MOPN, ICODE)
71 CALL FONAIT(30 000 + NTYPE*1000 + IALLOC,MEXP,MOPN,ICODE)
83 CALL FONAIT(MOPT(LCOPT),MEXP,MOPN,ICODE)
99 CALL FONAIT(MOPT(LCOPT),MEXP,MOPN,ICODE)
108 CALL FONAIT(50 002,MEXP,MOPN,ICODE)
126 CALL FONAIT(MOPT(LCOPT),MEXP,MOPN,ICODE)
139 CALL FONAIT(MOPT(LCOPT),MEXP,MOPN,ICODE)
|
| H A D | fonnrr.f | 5 SUBROUTINE FONNRR(MI,MR,ML,MC,MD,MOPN,MEXP,NBPARA,X,Y,Z,R,ICODE) argument
32 DIMENSION MOPN(*)
48 MOPN(LCOPN) = NEXP
61 MOPN(LCOPN) = NEXP
74 MOPN(LCOPN) = NEXP
85 CALL FONINT(0,MEXP,MI,MR,ML,MC,MD,MOPN,ICODE)
87 IF (MOPN(LCOPN) / 1000 .NE. 32) THEN
91 R = MR(MOPN(LCOPN) - 32 000)
|
| H A D | fonait.f | 5 SUBROUTINE FONAIT(NITEMP,MEXP,MOPN,ICODE) argument
23 DIMENSION MEXP(*),MOPN(*),MI(1)
32 MEXP(LCEXP) = MOPN(LCOPN-1)
33 MOPN(LCOPN) = MOPN(LCOPN-1)
49 CALL FONINT(1,MEXP,MI,MI,MI,MI,MI,MOPN,ICODE)
|
| H A D | fonint.f | 5 SUBROUTINE FONINT(IMODE,MEXP,MI,MR,ML,MC,MD,MOPN,ICODE) argument
30 DIMENSION MOPN(*)
54 MOPN(LCOPN) = NEXP
60 CALL FONOP1(NEXP-41 000, IMODE, MOPN, MI,MR,ML,MC,MD,ICODE)
62 CALL FONOP2(NEXP-42 000, IMODE, MOPN, MI,MR,ML,MC,MD,ICODE)
|
| H A D | fonspe.f | 5 SUBROUTINE FONSPE(MEXP,MSYM,MOPN,CFON,IFON,ICODE) argument
25 INTEGER MEXP(*),MSYM(*),MOPN(*) local
87 CALL FONAIT(NCSTE + 2000 + LCOPN, MEXP, MOPN, ICODE)
107 CALL FONAIT(NCSTE + 2000 + LCOPN, MEXP, MOPN, ICODE)
120 900 CALL FONAIT(50 001, MEXP, MOPN, ICODE)
|
| H A D | fonop2.f | 5 SUBROUTINE FONOP2(NCODOP,IMODE,MOPN,MI,MR,ML,MC,MD,ICODE) argument
25 INTEGER MOPN(*),MI(*) local
37 ITYPE1 = (MOPN(LCOPN)-30 000) / 1000
40 I1 = MOPN(LCOPN) - II
41 ITYPE2 = (MOPN(LCOPN+1)-30 000) / 1000
43 I2 = MOPN(LCOPN+1) - II
45 MOPN(LCOPN) = II + I3
|
| H A D | fonop1.f | 5 SUBROUTINE FONOP1(NCODOP,IMODE,MOPN,MI,MR,ML,MC,MD,ICODE) argument
25 INTEGER MOPN(*),MI(*) local
36 ITYPE1 = (MOPN(LCOPN)-30 000) / 1000
38 I1 = MOPN(LCOPN) - (30 000 + ITYPE1*1000)
44 MOPN(LCOPN) = (30 000 + ITYPE2*1000) + I2
|
| H A D | fonvar.f | 5 SUBROUTINE FONVAR(CITEM,MR,MEXP,MOPN,ICODE) argument
25 INTEGER MEXP(*),MOPN(*) local
102 500 CALL FONAIT(32 000 + IALLOC,MEXP,MOPN,ICODE)
|