Home
last modified time | relevance | path

Searched refs:IPARN (Results 1 – 20 of 20) sorted by relevance

/dports/misc/libemos/libemos-4.5.9-Source/bufrdc_wmo/
H A Dbucrkey.F101 IPARN=0
232 IF(IPARN.NE.0) THEN
233 IF(ABS(VALUES(IPARN)-RVIND)/RVIND.LT.EPS) THEN
235 PRINT*,'FOUND VALUES(IPARN)=',VALUES(IPARN)
238 IP=(VALUES(IPARN)/1000)
239 INCH=NINT(VALUES(IPARN)-IP*1000)
H A Dbucrekey.F94 IPARN=0
188 IF(IPARN.NE.0) THEN
189 IP=(VALUES(IPARN)/1000)
190 INCH=NINT(VALUES(IPARN)-IP*1000)
/dports/misc/libemos/libemos-4.5.9-Source/tools/bufrtools_wmo/
H A Demoslib_bufr_filter.F1126 IPARN=0 ! AIRCRAFT REGISTRATION NUMBER
1157 if(IPARN.eq.0) IPARN=I
1535 IF(IPARN.NE.0) THEN
1536 II=IPARN+IKEL
H A Dbufr_obs_filter.F1079 IPARN=0 ! AIRCRAFT REGISTRATION NUMBER
1100 IF(KTDEXP(I).EQ.001008) IPARN=I
1390 IF(IPARN.NE.0) THEN
1391 II=IPARN+IKEL
/dports/graphics/dataplot/dataplot-2c1b27601a3b7523449de612613eadeead9a8f70/src/
H A Ddp25.F3117 CHARACTER*4 IPARN
3171 DIMENSION IPARN(*)
3780 IHPARN=IPARN(J)
16108 CHARACTER*4 IPARN
16139 DIMENSION IPARN(*)
16932 IPARN(NUMPV)=IHRI11
16943 IPARN(NUMPV)=ILEF11
16955 IPARN(NUMPV)=ILEF21
16974 IHPARN=IPARN(J)
17619 CHARACTER*4 IPARN
[all …]
H A Ddp26.F2120 SUBROUTINE DPROO2(MODEL,NUMCHA,PARAM,IPARN,IPARN2,NUMPV, argument
2156 CHARACTER*4 IPARN
2186 DIMENSION IPARN(*)
2280 WRITE(ICOUT,56)I,PARAM(I),IPARN(I),IPARN2(I)
2313 IF(IPARN(J).EQ.IH.AND.IPARN2(J).EQ.IH2)THEN
2757 1 PARAM,IPARN,IPARN2,
2790 CHARACTER*4 IPARN
2847 DIMENSION IPARN(*)
3419 CALL COMPIM(IFUNC3,N3,IPASS,PARAM,IPARN,IPARN2,NUMPV,
3456 IHPARN=IPARN(J)
[all …]
H A Ddp7.F6051 1 PARAM,IPARN,IPARN2,NUMPAR,ITYPEH,IW2HOL,IW22HO,
6085 CHARACTER*4 IPARN
6125 DIMENSION IPARN(*)
6747 CALL COMPIM(IFUNC3,N3F,IPASS,PARAM,IPARN,IPARN2,NUMPV,
6752 WRITE(ICOUT,3411)NUMPV,IPARN(1),IPARN2(1),PARAM(1)
6778 IHPARN=IPARN(J)
6874 CALL COMPIM(IFUNC3,N3F,IPASS,PARAM,IPARN,IPARN2,NUMPV,
7043 CALL COMPIM(IFUNC3,N3F,IPASS,PARAM,IPARN,IPARN2,NUMPV,
7263 CHARACTER*4 IPARN
7284 DIMENSION IPARN(100)
[all …]
H A Dfit3b.F151 CHARACTER*4 IPARN local
208 DIMENSION IPARN(MAXPAR)
1087 IPARN(ICOUNT)=IH
1105 IPARN(J5)=IVARN1(I5)
1125 IPARN(I5)=IH
1143 IPARN(NUMPV)=IHARG(2)
1205 IHPARN=IPARN(J)
1212 IVARN3(IV)=IPARN(J)
1220 IPARN3(IP)=IPARN(J)
1227 IPARN3(IP)=IPARN(J)
[all …]
H A Ddp15.F2160 CHARACTER*4 IPARN
2209 DIMENSION IPARN(100)
2728 1 IA,PARAM,IPARN,IPARN2,
24414 CHARACTER*4 IPARN
24493 DIMENSION IPARN(*)
25071 WRITE(ICOUT,3804)IPARN(J),IPARN2(J)
25362 IPJ=IPARN(J)
25584 IPJ=IPARN(J)
25814 IPJ=IPARN(J)
26063 IPJ=IPARN(J)
[all …]
H A Ddp12.F18024 1 IA,PARAM,IPARN,IPARN2,
18060 CHARACTER*4 IPARN
18154 DIMENSION IPARN(*)
18525 WRITE(ICOUT,6129)I,IPARN(I),IPARN2(I)
18926 WRITE(ICOUT,7908)I,IPARN(I),IPARN2(I)
18982 IHPARN=IPARN(I)
18988 IPARN(NUMPV)=IDUMV(1)
18995 IHPARN=IPARN(J)
19199 IHPARN=IPARN(J)
19371 CALL DERIVC(IFUNC4,N4,PARAM,IPARN,IPARN2,NUMPV,
[all …]
H A Ddp21.F10436 CHARACTER*4 IPARN
10496 DIMENSION IPARN(*)
11144 IHPARN=IPARN(J)
11234 ZIPARN(KK)=IPARN(KK)
20460 CHARACTER*4 IPARN
20525 DIMENSION IPARN(*)
21339 IHPARN=IPARN(J)
21424 ZIPARN(KK)=IPARN(KK)
21792 CHARACTER*4 IPARN
21824 DIMENSION IPARN(*)
[all …]
H A Ddp22.F1048 CHARACTER*4 IPARN
1086 DIMENSION IPARN(*)
1528 IHPARN=IPARN(J)
1848 CHARACTER*4 IPARN
1868 DIMENSION IPARN(100)
26190 CHARACTER*4 IPARN
26211 DIMENSION IPARN(100)
27039 IHPARN=IPARN(J)
27046 IVARN3(IV)=IPARN(J)
27061 IPARN3(IP)=IPARN(J)
[all …]
H A Dodrpck.F13516 CHARACTER*4 IPARN
13546 DIMENSION IPARN(IODRC2,MAXNQ)
13563 COMMON /ODRCMC/ IBUGA3, ITYPEH, IW21HO, IW22HO, IPARN, IPARN2,
13675 IF(IPARN(J,L).EQ.IPARN3(K).AND.
13700 WRITE(ICOUT,56)I,PARAM(I,L),IPARN(I,L),IPARN2(I,L)
13710 WRITE(ICOUT,76)I,IPARN(I,L),IPARN2(I,L)
H A Ddp17.F9687 CHARACTER*4 IPARN local
9719 DIMENSION IPARN(*)
9820 WRITE(ICOUT,56)I,PARAM(I),IPARN(I),IPARN2(I)
9843 IF(IH.EQ.IPARN(J).AND.IH2.EQ.IPARN2(J))GOTO210
10119 1 PARAM,IPARN,IPARN2,TEMP1,ITEMP1, argument
10152 CHARACTER*4 IPARN local
10212 DIMENSION IPARN(*)
10804 CALL COMPIM(IFUNC3,N3,IPASS,PARAM,IPARN,IPARN2,NUMPV,
10827 IHPARN=IPARN(J)
10915 ZIPARN(KK)=IPARN(KK)
[all …]
H A Ddp27.F3618 SUBROUTINE DPRWLA(IA,IPARN,IPARN2,IWRITE,IINDX, argument
3658 CHARACTER*4 IPARN
3662 DIMENSION IPARN(*)
3698 WRITE(ICOUT,52)IBUGA3,ISUBRO,IA(1),IPARN(1),IPARN2(1)
7165 CHARACTER*4 IPARN
7214 DIMENSION IPARN(100)
7710 1 IA,PARAM,IPARN,IPARN2,
H A Ddp6.F10370 SUBROUTINE DERIVC(MODEL,NUMCHA,PARAM,IPARN,IPARN2,NUMPV, argument
10383 CHARACTER*4 IPARN local
10401 DIMENSION IPARN(*)
10445 WRITE(ICOUT,56)I,IPARN(I),IPARN2(I),PARAM(I)
10474 IF(IH.EQ.IPARN(J).AND.IH2.EQ.IPARN2(J))GOTO210
10505 CALL COMPIM(MODEL,NUMCHA,IPASS,PARAM,IPARN,IPARN2,NUMPV,
10514 CALL COMPIM(MODEL,NUMCHA,IPASS,PARAM,IPARN,IPARN2,NUMPV,
10581 WRITE(ICOUT,9016)I,IPARN(I),IPARN2(I),PARAM(I)
H A Ddp18.F11647 CHARACTER*4 IPARN
11715 DIMENSION IPARN(100)
12047 1 PARAM,IPARN,IPARN2,
12071 1 IA,PARAM,IPARN,IPARN2,
12116 1 IA,PARAM,IPARN,IPARN2,
12143 1 PARAM,IPARN,IPARN2,IANGLU,
12164 1 IA,PARAM,IPARN,IPARN2,
13390 1 IA,PARAM,IPARN,IPARN2,
13566 CHARACTER*4 IPARN
13611 DIMENSION IPARN(100)
[all …]
H A Ddp42.F20817 CHARACTER*4 IPARN
20847 DIMENSION IPARN(IOPTC2)
20861 COMMON /OPTCMC/ IBUGA3, ITYPEH, IW21HO, IW22HO, IPARN, IPARN2,
20903 WRITE(ICOUT,56)I,PARAM(I),IPARN(I),IPARN2(I)
20952 CALL COMPIM(ZMODEL,NUMCHA,IPASS,PARAM,IPARN,IPARN2,NUMVAR,
H A Ddp40.F22830 CHARACTER*4 IPARN
22858 DIMENSION IPARN(IOPTC2)
22872 COMMON /OPTCMC/ IBUGA3, ITYPEH, IW21HO, IW22HO, IPARN, IPARN2,
22911 WRITE(ICOUT,56)I,PARAM(I),IPARN(I),IPARN2(I)
22958 CALL COMPIM(ZMODEL,NUMCHA,IPASS,PARAM,IPARN,IPARN2,NUMVAR,
H A Ddp36.F3527 CHARACTER*4 IPARN local
3557 DIMENSION IPARN(IDUMC2)
3570 COMMON /DUMCMC/ IBUGA3, ITYPEH, IW21HO, IW22HO, IPARN, IPARN2, local
3614 WRITE(ICOUT,56)I,PARAM(I),IPARN(I),IPARN2(I)
3662 CALL COMPIM(ZMODEL,NUMCHA,IPASS,PARAM,IPARN,IPARN2,NUMVAR,