| /dports/science/dcl/dcl-5.4.8/src/env1/bitmap.win/ |
| H A D | cvhalf.f | 20 ILEN2 = ILEN/2
23 IF(LEN1) ILEN2 = 1
24 WRITE(2,'(4I4)') IPAT1, IPAT2, IWDTH2, ILEN2
39 DO 110 J=1, ILEN2
|
| /dports/misc/libemos/libemos-4.5.9-Source/tools/bufrtools_wmo/ |
| H A D | bufr_check.F | 227 ILEN2=0
332 CALL BUNPCK(NBPW,KBUFF,ILEN2,NWPT,NBPT,24,KERR)
334 CALL BUNEXS(ILEN2)
372 PRINT*,' LENGTH OF SECTION 2',ILEN2
382 KLEN=ILEN0+ILEN1+ILEN2+ILEN3+ILEN4+ILEN5
389 PRINT*,' LENGTH OF SECTION 2',ILEN2
|
| /dports/misc/libemos/libemos-4.5.9-Source/gribex/ |
| H A D | esvsec2.F | 11 INTEGER FUNCTION ESVSEC2(KGRIB,KLENG,INSPT,KSEC2,IBITS,ILEN2)
88 INTEGER KGRIB,KLENG,INSPT,KSEC2,IBITS,ILEN2
234 DO LOOP = 1, (ILEN2 - 38)
|
| H A D | dsvsec2.F | 11 INTEGER FUNCTION DSVSEC2(KGRIB,KLENG,INSPT,KSEC2,IBITS,ILEN2)
90 INTEGER KGRIB,KLENG,INSPT,KSEC2,IBITS,ILEN2
254 INSPT = INSPT + (ILEN2 - 38) * 8
|
| H A D | gribex.F | 61 INTEGER ILEN, ILENF, ILEN1, ILEN2, ILEN3, ILEN4
181 DATA ILEN/0/,ILENF/0/,ILEN1/0/,ILEN2/0/,ILEN3/0/,ILEN4/0/
1572 ILEN2 = 32 + INC + (KSEC2(12)*4) + 2*KSEC2(3)
1574 ILEN2 = 32 + INC + (KSEC2(12)*4)
1580 CALL INXBIT(KGRIB,KLENG,INSPT,ILEN2,1,IBITS, 24,YFUNC,KRET)
1592 X 'GRIBEX: Length of Section 2 of GRIB = ',ILEN2,' octets.'
1598 INSPT = INSPT -24 + ILEN2 * 8
1624 KSEC2(12) = ( ILEN2 - 32 ) / 4
1701 IF( IPL.LT.ILEN2) THEN
2043 KRET = ESVSEC2(KGRIB,KLENG,INSPT,KSEC2,IBITS,ILEN2)
[all …]
|
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/gp/ |
| H A D | gplupar.F | 1675 IF( ILEN2 .gt. 0 ) THEN
1709 IOFFSET = IOFFSET + ILEN2
3099 IF( ILEN2 .gt. 0 ) THEN
3119 IOFFSET = IOFFSET + ILEN2
3158 IF( ILEN2 .gt. 0 ) THEN
3183 IOFFSET = IOFFSET + ILEN2
3222 IF( ILEN2 .gt. 0 ) THEN
3242 CALL WRTMATMN(SCR(JOFF),1,ILEN2,1,ILEN2,LUWRT)
3251 IOFFSET = IOFFSET + ILEN2
3285 IF( ILEN2 .gt. 0 ) THEN
[all …]
|
| /dports/science/libccp4/libccp4-6.5.1/fortran/ |
| H A D | rwbrook.f | 3059 ILEN2 = LENSTR(NAMSPG_CIF)
3062 + SPGRP(1:ILEN1).NE.NAMSPG_CIF(1:ILEN2)) then
3068 BRKSPGRP = NAMSPG_CIF(1:ILEN2)
|
| /dports/textproc/halibut/halibut-1.2/ |
| H A D | deflate.c | 1314 CRC1, CRC2, ILEN1, ILEN2, enumerator
1975 dctx->state = ILEN2; in deflate_decompress_data()
1977 case ILEN2: in deflate_decompress_data()
|
| /dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/ |
| H A D | dp31.F | 23444 ILEN2=I2
23447 ILEN2=I2-1
23454 WRITE(ICOUT,392)ILEN2
23488 IF(ILEN2.EQ.1.OR.ILEN2.EQ.2)ICASE=1
23517 DO430J=1,ILEN2
23659 WRITE(ICOUT,928)ILEN2
25648 ILEN2=I2
25651 ILEN2=I2-1
25658 WRITE(ICOUT,392)ILEN2
25693 IF(ILEN2.EQ.1.OR.ILEN2.EQ.2)ICASE=1
[all …]
|
| H A D | dp14.F | 12623 ILEN2=ILEN1
12628 CALL DPCHEX(ISTR1,ILEN1,IX1,ISTR2,ILEN2,IX2)
12636 ILEN2=ILEN1
16294 ILEN2=ILEN1
16299 CALL DPCHEX(ISTAR1,ILEN1,IX1,ISTAR2,ILEN2,IX2)
16307 ILEN2=ILEN1
16312 CALL DPCHEX(ISTAR1,ILEN1,IX1,ISTAR2,ILEN2,IX2)
16333 ILEN2=ILEN1
16338 CALL DPCHEX(ISTAR1,ILEN1,IX1,ISTAR2,ILEN2,IX2)
16346 ILEN2=ILEN1
[all …]
|
| H A D | dp28.F | 12855 ILEN2=ISTOP2-ISTAR2+1
12856 ISHIFT=ILEN2-ILEN1
12899 WRITE(ICOUT,9021)ILEN1,ILEN2,ISHIFT
|
| H A D | dp27.F | 9082 ILEN2=NUMBPC
9089 CALL DPCHEX(ISTAR1,ILEN1,ISTRIN(L),ISTAR2,ILEN2,IWORD1)
|
| H A D | dp10.F | 12962 SUBROUTINE DPCHEX(ISTAR1,ILEN1,IX1,ISTAR2,ILEN2,IX2) argument
13048 WRITE(ICOUT,51)ISTAR1,ILEN1,IX1,ISTAR2,ILEN2,IX2
|
| H A D | dp32.F | 25769 ILEN2=ILEN1
25774 CALL DPCHEX(ISTAR1,ILEN1,IX1,ISTAR2,ILEN2,IX2)
25804 WRITE(ICOUT,9013)ISTAR2,ILEN2,IX2
|