/dports/science/libccp4/libccp4-6.5.1/fortran/ |
H A D | vmsdiskio.for | 501 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 D | rwbrook.f | 142 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 D | modflw96.f | 29 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 D | jacobi.F | 252 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 D | sbhin.f | 2 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 D | dbhin.f | 2 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 D | stout.f | 2 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 D | dtout.f | 2 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 D | xersve.f | 80 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 D | stin.f | 2 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 D | dtin.f | 2 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 D | xersav.f | 50 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 D | xerrwv.f | 111 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 D | xersav.f | 50 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 D | xerrwv.f | 111 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 D | slapqc.f | 131 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 D | dlapqc.f | 130 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 D | xersve.f | 80 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 D | xersve.f | 80 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 D | xersve.f | 80 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 D | w9driv.f | 215 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 D | namew.f | 1 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 D | ctable1.F | 115 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 D | stpr_readsq.F | 3 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 D | stpr_wrtsq.F | 3 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
|