/dports/misc/libemos/libemos-4.5.9-Source/bufrdc_wmo/ |
H A D | bucrkey.F | 101 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 D | bucrekey.F | 94 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 D | emoslib_bufr_filter.F | 1126 IPARN=0 ! AIRCRAFT REGISTRATION NUMBER 1157 if(IPARN.eq.0) IPARN=I 1535 IF(IPARN.NE.0) THEN 1536 II=IPARN+IKEL
|
H A D | bufr_obs_filter.F | 1079 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 D | dp25.F | 3117 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 D | dp26.F | 2120 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 D | dp7.F | 6051 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 D | fit3b.F | 151 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 D | dp15.F | 2160 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 D | dp12.F | 18024 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 D | dp21.F | 10436 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 D | dp22.F | 1048 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 D | odrpck.F | 13516 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 D | dp17.F | 9687 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 D | dp27.F | 3618 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 D | dp6.F | 10370 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 D | dp18.F | 11647 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 D | dp42.F | 20817 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 D | dp40.F | 22830 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 D | dp36.F | 3527 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,
|