Home
last modified time | relevance | path

Searched refs:IUNIT (Results 1 – 25 of 213) sorted by relevance

123456789

/dports/science/libccp4/libccp4-6.5.1/fortran/
H A Dvmsdiskio.for501 IF (NRECSZ(IUNIT).LT.0) NRECSZ(IUNIT) = NRECSZ(IUNIT) + I2P16
503 D & IUNIT,NVBLK(IUNIT),1,NSIZE,ISTAT,NRECSZ(IUNIT)
588 D & IUNIT,NVBLK(IUNIT),INDEX,IBY,ISTAT,NRECSZ(IUNIT)
605 D & IUNIT,NVBLK(IUNIT),1,NSIZE,ISTAT,NRECSZ(IUNIT)
752 D & IUNIT,NVBLK(IUNIT),1,NSIZE,ISTAT,NRECSZ(IUNIT)
781 & BUFFER(NEL(IUNIT),IUNIT))
783 LRECSZ(IUNIT)=MIN(LRECSZ(IUNIT),NEL(IUNIT))
785 MRECSZ(IUNIT)=MAX(MRECSZ(IUNIT),NEL(IUNIT)-1)
786 NRECSZ(IUNIT)=MAX(NRECSZ(IUNIT),MRECSZ(IUNIT))
798 & BUFFER(NEL(IUNIT),IUNIT))
[all …]
H A Drwbrook.f142 SUBROUTINE RBINIT(IUNIT) argument
156 INTEGER IUNIT
270 INTEGER IUNIT, IFAIL,ICRYST
625 INTEGER IUNIT
705 INTEGER IOUT,ITER,IUNIT
940 INTEGER IUNIT
1019 INTEGER IUNIT
1085 INTEGER IUNIT
2764 INTEGER ARGNCODE,IUNIT
2856 INTEGER IUNIT
[all …]
/dports/science/dakota/dakota-6.13.0-release-public.src-UI/packages/external/hopspack/community_problems/modflw96.3_3/src/
H A Dmodflw96.f29 DIMENSION VBVL(4,40),IUNIT(40)
122 2 IUNIT(9),IOUT,IFREFM)
134 IF(IUNIT(16).GT.0) CALL HFB1AL(ISUM,LENX,LCHFBR,NHFB,IUNIT(16), *HFB*
169 IF(IUNIT(10).GT.0) CALL DE45RP(IUNIT(10),MXITER,NITER,ITMX,
171 IF(IUNIT(11).GT.0) CALL SOR5RP(MXITER,ACCL,HCLOSE,IUNIT(11),
200 IF(IUNIT(2).GT.0) CALL WEL5RP(X(LCWELL),NWELLS,MXWELL,IUNIT(2),
202 IF(IUNIT(3).GT.0) CALL DRN5RP(X(LCDRAI),NDRAIN,MXDRN,IUNIT(3),
204 IF(IUNIT(4).GT.0) CALL RIV5RP(X(LCRIVR),NRIVER,MXRIVR,IUNIT(4),
209 IF(IUNIT(7).GT.0) CALL GHB5RP(X(LCBNDS),NBOUND,MXBND,IUNIT(7),
216 3 IUNIT(17),IOUT)
[all …]
/dports/misc/libemos/libemos-4.5.9-Source/interpolation/
H A Djacobi.F252 CALL PBSEEK(IUNIT,0,0,IRET)
255 CALL PBCLOSE(IUNIT,IRET)
265 CALL PBCLOSE(IUNIT,IRET)
339 CALL PBSEEK(IUNIT,0,2,IRET)
342 CALL PBCLOSE(IUNIT,IRET)
352 CALL PBCLOSE(IUNIT,IRET)
359 CALL PBSEEK(IUNIT,0,0,IRET)
362 CALL PBCLOSE(IUNIT,IRET)
588 CALL PBCLOSE(IUNIT,IRET)
596 CALL PBCLOSE(IUNIT,IRET)
[all …]
/dports/math/slatec/src/
H A Dsbhin.f2 SUBROUTINE SBHIN (N, NELT, IA, JA, A, ISYM, SOLN, RHS, IUNIT, JOB) argument
154 INTEGER ISYM, IUNIT, JOB, N, NELT
178 READ(IUNIT,9000) TITLE
179 READ(IUNIT,9010) NLINE, NPLS, NRILS, NNVLS, NRHSLS
180 READ(IUNIT,9020) CODE, NROW, NCOL, NIND, NELE
181 READ(IUNIT,9030) PNTFMT, RINFMT, NVLFMT, RHSFMT
206 READ(IUNIT,PNTFMT) (JA(I), I = 1, N+1)
207 READ(IUNIT,RINFMT) (IA(I), I = 1, NELT)
210 READ(IUNIT,NVLFMT) (A(I), I = 1, NELT)
H A Ddbhin.f2 SUBROUTINE DBHIN (N, NELT, IA, JA, A, ISYM, SOLN, RHS, IUNIT, JOB) argument
154 INTEGER ISYM, IUNIT, JOB, N, NELT
178 READ(IUNIT,9000) TITLE
179 READ(IUNIT,9010) NLINE, NPLS, NRILS, NNVLS, NRHSLS
180 READ(IUNIT,9020) CODE, NROW, NCOL, NIND, NELE
181 READ(IUNIT,9030) PNTFMT, RINFMT, NVLFMT, RHSFMT
206 READ(IUNIT,PNTFMT) (JA(I), I = 1, N+1)
207 READ(IUNIT,RINFMT) (IA(I), I = 1, NELT)
210 READ(IUNIT,NVLFMT) (A(I), I = 1, NELT)
H A Dstout.f2 SUBROUTINE STOUT (N, NELT, IA, JA, A, ISYM, SOLN, RHS, IUNIT, JOB) argument
117 INTEGER ISYM, IUNIT, JOB, N, NELT
132 WRITE(IUNIT,1000) N, NELT, ISYM, IRHS, ISOLN
136 WRITE(IUNIT,1010) IA(I), JA(I), A(I)
141 WRITE(IUNIT,1020) (RHS(I),I=1,N)
146 WRITE(IUNIT,1020) (SOLN(I),I=1,N)
H A Ddtout.f2 SUBROUTINE DTOUT (N, NELT, IA, JA, A, ISYM, SOLN, RHS, IUNIT, JOB) argument
118 INTEGER ISYM, IUNIT, JOB, N, NELT
133 WRITE(IUNIT,1000) N, NELT, ISYM, IRHS, ISOLN
137 WRITE(IUNIT,1010) IA(I), JA(I), A(I)
142 WRITE(IUNIT,1020) (RHS(I),I=1,N)
147 WRITE(IUNIT,1020) (SOLN(I),I=1,N)
H A Dxersve.f80 IUNIT = LUN(KUNIT)
81 IF (IUNIT.EQ.0) IUNIT = I1MACH(4)
85 WRITE (IUNIT,9000)
90 WRITE (IUNIT,9010) LIBTAB(I), SUBTAB(I), MESTAB(I),
96 IF (KOUNTX.NE.0) WRITE (IUNIT,9020) KOUNTX
97 WRITE (IUNIT,9030)
H A Dstin.f2 SUBROUTINE STIN (N, NELT, IA, JA, A, ISYM, SOLN, RHS, IUNIT, JOB) argument
130 INTEGER ISYM, IUNIT, JOB, N, NELT
143 READ(IUNIT,1000) N, NELT, ISYM, IRHS, ISOLN
148 READ(IUNIT,1010) IA(I), JA(I), A(I)
158 READ(IUNIT,1020) (RHS(I),I=1,N)
172 READ(IUNIT,1020) (SOLN(I),I=1,N)
H A Ddtin.f2 SUBROUTINE DTIN (N, NELT, IA, JA, A, ISYM, SOLN, RHS, IUNIT, JOB) argument
131 INTEGER ISYM, IUNIT, JOB, N, NELT
144 READ(IUNIT,1000) N, NELT, ISYM, IRHS, ISOLN
149 READ(IUNIT,1010) IA(I), JA(I), A(I)
159 READ(IUNIT,1020) (RHS(I),I=1,N)
173 READ(IUNIT,1020) (SOLN(I),I=1,N)
/dports/audio/guitarix-lv2/guitarix-0.43.1/tools/ampsim/tensbs/
H A Dxersav.f50 IUNIT = LUN(KUNIT)
51 IF (IUNIT.EQ.0) IUNIT = I1MACH(4)
53 WRITE (IUNIT,10)
59 WRITE (IUNIT,15) MESTAB(I),NERTAB(I),LEVTAB(I),KOUNT(I)
64 IF (KOUNTX.NE.0) WRITE (IUNIT,40) KOUNTX
66 WRITE (IUNIT,50)
H A Dxerrwv.f111 IUNIT = LUN(KUNIT)
112 IF (IUNIT.EQ.0) IUNIT = I1MACH(4)
116 IF (I.EQ.1) WRITE (IUNIT,FORM) I1
117 IF (I.EQ.2) WRITE (IUNIT,FORM) I2
123 IF (I.EQ.1) WRITE (IUNIT,FORM) R1
124 IF (I.EQ.2) WRITE (IUNIT,FORM) R2
128 WRITE (IUNIT,30) LERR
/dports/math/cmlib/cmlib-3.0_8/src/xerror/
H A Dxersav.f50 IUNIT = LUN(KUNIT)
51 IF (IUNIT.EQ.0) IUNIT = I1MACH(4)
53 WRITE (IUNIT,10)
59 WRITE (IUNIT,15) MESTAB(I),NERTAB(I),LEVTAB(I),KOUNT(I)
64 IF (KOUNTX.NE.0) WRITE (IUNIT,40) KOUNTX
66 WRITE (IUNIT,50)
H A Dxerrwv.f111 IUNIT = LUN(KUNIT)
112 IF (IUNIT.EQ.0) IUNIT = I1MACH(4)
116 IF (I.EQ.1) WRITE (IUNIT,FORM) I1
117 IF (I.EQ.2) WRITE (IUNIT,FORM) I2
123 IF (I.EQ.1) WRITE (IUNIT,FORM) R1
124 IF (I.EQ.2) WRITE (IUNIT,FORM) R2
128 WRITE (IUNIT,30) LERR
/dports/math/slatec/
H A Dslapqc.f131 IUNIT = 0
133 IUNIT = LUN
195 $ ITOL, TOL, 2*ITMAX, ITER, ERR, IERR, IUNIT,
208 $ ITOL, TOL, ITMAX, ITER, ERR, IERR, IUNIT,
221 $ ITOL, TOL, ITMAX, ITER, ERR, IERR, IUNIT,
303 $ ITOL, TOL, ITMAX, ITER, ERR, IERR, IUNIT,
329 $ ITOL, TOL, ITMAX, ITER, ERR, IERR, IUNIT,
345 $ IUNIT, RWORK, LENW, IWORK, LENIW )
361 $ IUNIT, RWORK, LENW, IWORK, LENIW )
378 $ IUNIT, RWORK, LENW, IWORK, LENIW )
[all …]
H A Ddlapqc.f130 IUNIT = 0
132 IUNIT = LUN
194 $ ITOL, TOL, 2*ITMAX, ITER, ERR, IERR, IUNIT,
207 $ ITOL, TOL, ITMAX, ITER, ERR, IERR, IUNIT,
220 $ ITOL, TOL, ITMAX, ITER, ERR, IERR, IUNIT,
302 $ ITOL, TOL, ITMAX, ITER, ERR, IERR, IUNIT,
328 $ ITOL, TOL, ITMAX, ITER, ERR, IERR, IUNIT,
344 $ IUNIT, RWORK, LENW, IWORK, LENIW )
360 $ IUNIT, RWORK, LENW, IWORK, LENIW )
377 $ IUNIT, RWORK, LENW, IWORK, LENIW )
[all …]
/dports/math/PDL/PDL-2.019/Lib/Slatec/slatec/
H A Dxersve.f80 IUNIT = LUN(KUNIT)
81 IF (IUNIT.EQ.0) IUNIT = I1MACH(4)
85 WRITE (IUNIT,9000)
90 WRITE (IUNIT,9010) LIBTAB(I), SUBTAB(I), MESTAB(I),
96 IF (KOUNTX.NE.0) WRITE (IUNIT,9020) KOUNTX
97 WRITE (IUNIT,9030)
/dports/math/octave/octave-6.4.0/liboctave/external/slatec-err/
H A Dxersve.f80 IUNIT = LUN(KUNIT)
81 IF (IUNIT.EQ.0) IUNIT = I1MACH(4)
85 WRITE (IUNIT,9000)
90 WRITE (IUNIT,9010) LIBTAB(I), SUBTAB(I), MESTAB(I),
96 IF (KOUNTX.NE.0) WRITE (IUNIT,9020) KOUNTX
97 WRITE (IUNIT,9030)
/dports/math/maxima/maxima-5.43.2/src/numerical/slatec/fortran/
H A Dxersve.f80 IUNIT = LUN(KUNIT)
81 IF (IUNIT.EQ.0) IUNIT = I1MACH(4)
85 WRITE (IUNIT,9000)
90 WRITE (IUNIT,9010) LIBTAB(I), SUBTAB(I), MESTAB(I),
96 IF (KOUNTX.NE.0) WRITE (IUNIT,9020) KOUNTX
97 WRITE (IUNIT,9030)
/dports/graphics/pgplot/pgplot/sys_win/
H A Dw9driv.f215 I4STAT = SETACTIVEQQ(IUNIT(ACTIVE))
216 I4STAT = FOCUSQQ(IUNIT(ACTIVE))
245 CALL GRGLUN(IUNIT(ACTIVE))
265 CLOSE (IUNIT(ACTIVE))
277 I4STAT = SETACTIVEQQ(IUNIT(ACTIVE))
278 I4STAT = FOCUSQQ(IUNIT(ACTIVE))
484 INTEGER IUNIT, EVENT, KEYSTATE, XMOUSE, YMOUSE local
500 IF (IUNIT .GT. 0) DUMMY = UNREGISTERMOUSEEVENT(IUNIT, MOUSE$MOVE)
502 FINIS = IUNIT.EQ.0 .AND. EVENT.EQ.0 .AND. KEYSTATE.EQ.0
503 IF (IUNIT.LE.0 .AND. .NOT.FINIS) THEN
[all …]
/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/
H A Dnamew.f1 SUBROUTINE NAMEW(KAND,IUNIT,NLNAME,LENNLN,VNAME,DVNAME,LENVN, argument
50 WRITE(IUNIT,1030)KAND,(NLNAME(I),I=1,LENNLN)
80 IF(VTYPE .EQ. 0)CALL FORLOG(IUNIT, KOL, COMBLK(KK), JJ)
81 IF(VTYPE .EQ. 1)CALL FORINT(IUNIT, KOL, COMBLK(KK), JJ)
82 IF(VTYPE .EQ. 2)CALL FORREA(IUNIT, KOL, COMBLK(KK), JJ)
86 WRITE(IUNIT,1040)KAND
/dports/misc/libemos/libemos-4.5.9-Source/bufrdc_wmo/
H A Dctable1.F115 CALL GET_FREE_UNIT(IUNIT)
116 OPEN(UNIT=IUNIT,FILE=YFNAME(1:II),ERR=401,STATUS='OLD')
124 READ(IUNIT,'(A)',ERR=402,END=300) YENTRY
163 READ(IUNIT,'(A)',END=300) YENTRY
171 READ(IUNIT,'(A)',END=300) YENTRY
181 READ(IUNIT,'(A)',END=300) YENTRY
194 CLOSE(IUNIT)
/dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/stepper/
H A Dstpr_readsq.F3 SUBROUTINE stpr_readsq (IUNIT,A,LEN,IERR) argument
5 INTEGER LEN, IUNIT, IERR
8 READ (IUNIT, END=10, ERR=10) (A(IERR),IERR=1,LEN)
10 READ (IUNIT, END=10, ERR=10) A
H A Dstpr_wrtsq.F3 SUBROUTINE stpr_wrtsq (IUNIT,A,LEN,IERR) argument
5 INTEGER LEN, IUNIT, IERR
8 WRITE (IUNIT, ERR=10) (A(IERR),IERR=1,LEN)
10 WRITE (IUNIT, ERR=10) A

123456789