Home
last modified time | relevance | path

Searched refs:LUNIT (Results 1 – 25 of 47) sorted by relevance

12

/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/cc/
H A Dcrayio2.F35 IF (LUNIT .LE. 0) THEN
41 LUNIT = IUN
42 IUNCRAY(LUNIT) = 1
46 & '" with unit number ',LUNIT
216 INTEGER LUNIT, IERR, ILEN
224 IF (LUNIT .LT. 1 .OR. LUNIT .GT. 99) THEN
264 IF (LUNIT .LE. 70) THEN
265 IUNCRAY(LUNIT) = 0
266 LUNIT = -1
308 DO LUNIT = 1, 70
[all …]
H A Dcccr_aa.F86 INTEGER LUNIT,IDUM,IAN,KLAMDPB,KLAMDHB,KRHO12SQ,KRHOR12
390 LUNIT = -1
391 CALL GPOPEN(LUNIT,FCCR12X,'OLD',' ','UNFORMATTED',
393 REWIND(LUNIT)
394 8888 READ(LUNIT) IAN
395 READ(LUNIT) (WORK(KXINTTRI-1+I), I=1, NR12R12P(1))
397 CALL GPCLOSE(LUNIT,'KEEP')
H A Dcclr_util.F1168 LUNIT = -1
1172 CALL GPCLOSE(LUNIT,'KEEP')
1201 LUNIT = -1
1233 LUNIT = -1
1295 LUNIT = -1
1328 LUNIT = -1
1417 LUNIT = -1
1421 CALL GPCLOSE(LUNIT,'KEEP')
1437 LUNIT = -1
1471 LUNIT = -1
[all …]
H A Dcc_r12xprep.F1056 LUNIT = -1
1057 CALL GPOPEN(LUNIT,'EXFRO','UNKNOWN','SEQUENTIAL',
1060 CALL GPCLOSE(LUNIT,'KEEP')
1087 LUNIT = -1
1088 CALL GPOPEN(LUNIT,'AUXQSF12','UNKNOWN','SEQUENTIAL',
1091 CALL GPCLOSE(LUNIT,'KEEP')
1103 LUNIT = -1
1104 CALL GPOPEN(LUNIT,'AUXQSFJ12','UNKNOWN','SEQUENTIAL',
1107 CALL GPCLOSE(LUNIT,'KEEP')
1118 LUNIT = -1
[all …]
H A Dcc_bamat.F139 INTEGER LUNIT,IAN,DUMMY,ISYM1,ISYM2,IDLST1,IDLST2
542 LUNIT = -1
543 CALL GPOPEN(LUNIT,FCCR12X,'OLD',' ','UNFORMATTED',
545 REWIND(LUNIT)
546 8888 READ(LUNIT) IAN
547 READ(LUNIT) (WORK(KXINTTRI-1+I), I=1, NR12R12P(1))
549 CALL GPCLOSE(LUNIT,'KEEP')
H A Dcc_r12no.F44 INTEGER NR12xVIR,IR12xVIR(8),KFCKMIX,LUNIT
377 LUNIT = -1
378 CALL GPOPEN(LUNIT,'R12FVIR','UNKNOWN',' ','UNFORMATTED',IDUMMY,
380 WRITE (LUNIT) (WORK(KFCKMIX+I-1), I=1, NR12xVIR)
381 CALL GPCLOSE(LUNIT,'KEEP')
H A Dcc_r12.F2265 LUNIT = -1
2267 LUNIT = -1
2287 LUNIT = -1
2295 LUNIT = -1
2343 LUNIT = -1
2345 LUNIT = -1
2788 LUNIT = -1
2931 LUNIT = -1
2945 LUNIT = -1
2961 LUNIT = -1
[all …]
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/gp/
H A Dgptrygve.F980 IF ((LUNIT .LT. 0) .OR. (LUNIT .GT. 99)) THEN
991 LUNIT = IUN
1000 IF ((LUNIT .EQ. 5) .OR. (LUNIT .EQ. 6)) GOTO 9002
1153 8000 IUNTAB(LUNIT) = 1
1293 IF ((LUNIT .LT. 1) .OR. (LUNIT .GT. 99) .OR.
1294 & (LUNIT .EQ. 5) .OR. (LUNIT .EQ. 6)) GOTO 9001
1314 LUNIT = -30000-LUNIT
1363 LUNIT = -20000-LUNIT
1369 20 CLOSE (LUNIT)
1370 IUNTAB(LUNIT) = 0
[all …]
/dports/math/octave/octave-6.4.0/liboctave/external/slatec-err/
H A Dixsav.f48 INTEGER LUNIT, LUNDEF, MESFLG local
53 SAVE LUNIT, LUNDEF, MESFLG
54 DATA LUNIT/-1/, LUNDEF/6/, MESFLG/1/
58 IF (LUNIT .EQ. -1) LUNIT = LUNDEF
59 IXSAV = LUNIT
60 IF (ISET) LUNIT = IVALUE
H A Dxerrwd.f70 INTEGER LUNIT, IXSAV, MESFLG local
75 LUNIT = IXSAV (1, 0, .FALSE.)
81 WRITE (LUNIT,10) MSG(1:NMES)
83 IF (NI .EQ. 1) WRITE (LUNIT, 20) I1
85 IF (NI .EQ. 2) WRITE (LUNIT, 30) I1,I2
87 IF (NR .EQ. 1) WRITE (LUNIT, 40) R1
89 IF (NR .EQ. 2) WRITE (LUNIT, 50) R1,R2
/dports/math/scilab/scilab-6.1.1/scilab/modules/differential_equations/src/fortran/
H A Ddaux.f115 INTEGER LUNIT, IXSAV, MESFLG local
120 LUNIT = IXSAV (1, 0, .FALSE.)
271 INTEGER LUNIT, LUNDEF, MESFLG local
276 SAVE LUNIT, LUNDEF, MESFLG
277 DATA LUNIT/-1/, LUNDEF/6/, MESFLG/1/
281 IF (LUNIT .EQ. -1) LUNIT = LUNDEF
282 IXSAV = LUNIT
283 IF (ISET) LUNIT = IVALUE
/dports/math/math77/MATH77/demo/
H A Ddrvecpr.f6 integer LWIDTH, LUNIT, NUMDIG, N, I variable
8 parameter (LUNIT=0)
22 call IVECPR (A,N,'0 IVECPR.. A()=', LWIDTH, LUNIT)
23 call SVECPR (B1,N,'0 SVECPR.. B1()=', LWIDTH, LUNIT, NUMDIG)
24 call DVECPR (C1,N,'0 DVECPR.. C1()=', LWIDTH, LUNIT, NUMDIG)
25 call SVECPR (B2,N,'0 SVECPR.. B2()=', LWIDTH, LUNIT, NUMDIG)
26 call DVECPR (C2,N,'0 DVECPR.. C2()=', LWIDTH, LUNIT, NUMDIG)
27 call DVECPR (C3,N,'0 DVECPR.. C3()=', LWIDTH, LUNIT, NUMDIG)
H A Ddrmatpr.f6 integer LWIDTH, LUNIT, NUMDIG, M, N, I, J variable
8 parameter (LUNIT=0)
30 call IMATPR (A,M,M,N,'0 IMATPR.. A(,)=', LWIDTH, LUNIT)
31 call SMATPR (B,M,M,N,'0 SMATPR.. B(,)=', LWIDTH, LUNIT, NUMDIG)
32 call DMATPR (C1,M,M,N,'0 DMATPR.. C1(,)=', LWIDTH, LUNIT, NUMDIG)
33 call DMATPR (C2,M,M,N,'0 DMATPR.. C2(,)=', LWIDTH, LUNIT, NUMDIG)
34 call DMATPR (C3,M,M,N,'0 DMATPR.. C3(,)=', LWIDTH, LUNIT, NUMDIG)
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/choles/
H A Dcc_choio.F80 LUNIT(ISM) = LUTAM
88 LUTAM = LUNIT(ISM)
90 LUNIT(ISM) = -1
97 LUTAM = LUNIT(ISM)
99 LUNIT(ISM) = -1
290 LUNIT(ISM) = LUVEC
302 LUNIT(ISM) = -1
313 LUNIT(ISM) = -1
1387 LUNIT = -1
1397 LUNIT = -1
[all …]
/dports/devel/upp/upp/uppsrc/Core/
H A Dlheap.cpp18 void Heap::LargeHeapDetail::LinkFree(BlkHeader_<LUNIT> *h) in LinkFree()
82 if(size > LUNIT * LPAGE - sizeof(BlkPrefix)) { // big block allocation
97 word wcount = word((size + sizeof(BlkPrefix) + LUNIT - 1) >> 8);
105 size = ((int)wcount * LUNIT) - sizeof(BlkPrefix);
122 h = h->GetPrevHeader(LUNIT);
128 DLink *ml = (DLink *)HugeAlloc(((LPAGE + 1) * LUNIT) / 4096);
196 if(newsize > LUNIT * LPAGE - sizeof(BlkPrefix)) in TryRealloc()
198 word wcount = word(((newsize ? newsize : 1) + sizeof(BlkPrefix) + LUNIT - 1) >> 8); in TryRealloc()
201 newsize = ((int)wcount * LUNIT) - sizeof(BlkPrefix); in TryRealloc()
/dports/math/math77/MATH77/
H A Divecpr.f1 subroutine IVECPR(V, N, TEXT, LWIDTH, LUNIT ) argument
37 integer N, LWIDTH, LUNIT local
63 if (LUNIT .ge. 0) then
66 MACT(K+3) = LUNIT
H A Ddvecpr.f1 subroutine DVECPR(V, N, TEXT, LWIDTH, LUNIT, NUMDIG) argument
38 integer N, LWIDTH, LUNIT, NUMDIG local
65 if (LUNIT .ge. 0) then
68 MACT(K+3) = LUNIT
H A Dsvecpr.f1 subroutine SVECPR(V, N, TEXT, LWIDTH, LUNIT, NUMDIG) argument
38 integer N, LWIDTH, LUNIT, NUMDIG local
65 if (LUNIT .ge. 0) then
68 MACT(K+3) = LUNIT
H A Ddmatpr.f1 subroutine DMATPR(A, IDIMA, M, N, TEXT, LWIDTH, LUNIT, NUMDIG) argument
42 integer N, LWIDTH, LUNIT, NUMDIG, IDIMA, M local
69 if (LUNIT .ge. 0) then
72 MACT(K+3) = LUNIT
H A Dimatpr.f1 subroutine IMATPR(A, IDIMA, M, N, TEXT, LWIDTH, LUNIT ) argument
42 integer N, LWIDTH, LUNIT , IDIMA, M local
69 if (LUNIT .ge. 0) then
72 MACT(K+3) = LUNIT
H A Dsmatpr.f1 subroutine SMATPR(A, IDIMA, M, N, TEXT, LWIDTH, LUNIT, NUMDIG) argument
42 integer N, LWIDTH, LUNIT, NUMDIG, IDIMA, M local
69 if (LUNIT .ge. 0) then
72 MACT(K+3) = LUNIT
/dports/science/siconos/siconos-4.4.0/externals/netlib/odepack/
H A Dopkda2.f1240 INTEGER LUNIT, IXSAV, MESFLG local
1245 LUNIT = IXSAV (1, 0, .FALSE.)
1251 WRITE (LUNIT,10) MSG
1253 IF (NI .EQ. 1) WRITE (LUNIT, 20) I1
1257 IF (NR .EQ. 1) WRITE (LUNIT, 40) R1
1386 INTEGER IUMACH, LUNIT, MESFLG local
1391 SAVE LUNIT, MESFLG
1392 DATA LUNIT/-1/, MESFLG/1/
1396 IF (LUNIT .EQ. -1) LUNIT = IUMACH()
1397 IXSAV = LUNIT
[all …]
/dports/graphics/raster3d/Raster3D_3.0-7/
H A Drender_patch.aix2 < PARAMETER (INPUT0=5, NOISE=0, LUNIT=4)
4 > PARAMETER (INPUT0=5, NOISE=0, LUNIT=9)
/dports/science/dcl/dcl-5.4.8/src/grph2/ugpack/
H A Dugvect.f12 + LMISSP,LSMALL,LUNIT,LUMSG
27 CALL UGLGET('LUNIT ',LUNIT )
132 IF (LUNIT) THEN
/dports/science/healpix/Healpix_3.50/src/idl/zzz_external/astron/
H A Dfxposit.pro3 LUNIT = lunit, UNIXPIPE= unixpipe, FPACK= fpack, $
49 ; LUNIT - Integer giving the file unit number. Use this keyword if
102 ; W. Landsman/N.Piskunov Dec 2007 Added LUNIT keyword
123 'ERRMSG= , /SILENT, compress=prog, LUNIT = lunit)'
162 IF KEYWORD_SET(LUNIT) THEN BEGIN
163 UNIT=LUNIT
251 IF ~KEYWORD_SET(LUNIT) THEN Free_Lun, unit
263 IF ~KEYWORD_SET(LUNIT) THEN Free_Lun, unit

12