Home
last modified time | relevance | path

Searched refs:IFAC2 (Results 1 – 5 of 5) sorted by relevance

/dports/graphics/xd3d/xd3d-8.3.1/src/d3d/
H A Dinitial.f60 IFAC2 = 32
383 CALL ouvrebin(IFAC2,NOM_FICH(1:LONG-8)//'avoir3D'//CHAR(0)
386 OPEN(IFAC2,FILE=NOM_FICH(1:LONG-8)//'avoir3D'
401 CALL ouvrebin(IFAC2,NOM_FICH(1:LONG-8)//'avoir2D'//CHAR(0)
404 OPEN(IFAC2,FILE=NOM_FICH(1:LONG-8)//'avoir2D'
419 OPEN(IFAC2,FILE=NOM_FICH(1:LONG-7)//'depl',STATUS='OLD'
443 OPEN(IFAC2,FILE=NOM_FICH(1:LONG-4)//'depl',STATUS='OLD'
H A Dlecture.f175 REWIND(IFAC2)
176 READ(IFAC2) HED
178 CALL litrecbin(IFAC2,IWORK,LLL,1)
186 READ(IFAC2) NNN,MNDOF
188 CALL litrecbin(IFAC2,IWORK,LLL,0)
205 READ(IFAC2) XN,YN,ZN
207 CALL litrecbin(IFAC2,IWORK,LLL,0)
227 CALL LITITRE(IFAC2,NNN,IERR)
246 READ(IFAC2,*) DEPX(N),DEPY(N)
251 READ(IFAC2,*) DEPX(N),DEPY(N),DEPZ(N)
[all …]
H A Dcom_options.f8 & ,ISENS,IFAC,IFAC2,ICOURB,IAXES,IAXESDEF,IBORD local
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/
H A Ddp32.F28654 IFAC2=ILOOP*6
28655 IF(IFAC2.GT.NUMFAC)IFAC2=NUMFAC
28656 NUMCOL=IFAC2-IFAC1+1
28661 WRITE(ITITL9(15:16),'(I2)')IFAC2
28696 DO5351J=IFAC1,IFAC2
28759 IFAC2=ILOOP*6
28760 IF(IFAC2.GT.NUMFAC)IFAC2=NUMFAC
28761 NUMCOL=IFAC2-IFAC1+1
28766 WRITE(ITITL9(15:16),'(I2)')IFAC2
28801 DO5451J=IFAC1,IFAC2
H A Dstarpac.F7228 + I,IFAC1,IFAC2
7253 IFAC2 = IFAC1/10
7254 IPTOUT(I) = MOD(NPRT, IFAC1) / IFAC2
7255 IFAC1 = IFAC2