/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/ |
H A D | xnam23.f | 18 DIMENSION LENH(32),LDMH(32),EXPR(131),LOCH(32),AH(469) 24 DATA LENH / 3*3,4,4,3*3,4,4,3*3,5*4,5,5,6,6,5,3,5*5,4,5,4 / 76 1 CALL NAMER(KAND,10,NLNAME,4,EXPR,131,LENH,32,LDMH,AH,469, 79 1 CALL NAMEW(KAND,6,NLNAME,4,EXPR,131,LENH,32,LDMH,AH,469,LOCH)
|
H A D | nmlist.f | 17 COMMON /IBWHV/ PBWHV, LENH(32),LDMH(32),EXPR(131) local 70 1120 CALL TESTOR(KOL,L,NAME,K,IER,LENH,LDMH,32,EXPR)
|
H A D | blockd.f | 16 COMMON /IBWHV/ PBWHV, LENH(32),LDMH(32),EXPR(131),DUM12(185) local 172 DATA LENH / 3*3,4,4,3*3,4,4,3*3,5*4,5,5,6,6,5,3,5*5,4,5,4 /
|
/dports/math/mumps/mumps-5.1.2/src/ |
H A D | dana_mtrans.F | 444 SUBROUTINE DMUMPS_MTRANSQ(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument 447 INTEGER :: LENL(*),LENH(*),W(*) local 457 DO 15 II = IP(J)+int(LENL(J),8),IP(J)+int(LENH(J)-1,8) 568 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) argument 575 & W(N),LEN(N),LENL(N),LENH(N),FC(N),IW(M),IW4(3*N+M) local 613 LENH(J) = L 647 60 LENH(J) = LEN(J) 649 IF (LENL(J).EQ.LENH(J)) THEN 662 CALL DMUMPS_MTRANSQ(IP,LEN,LENH,W,WLEN,A,NVAL,BVAL) 668 DO 85 II = IP(J)+int(LEN(J),8),IP(J)+int(LENH(J)-1,8) [all …]
|
H A D | sana_mtrans.F | 444 SUBROUTINE SMUMPS_MTRANSQ(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument 447 INTEGER :: LENL(*),LENH(*),W(*) local 457 DO 15 II = IP(J)+int(LENL(J),8),IP(J)+int(LENH(J)-1,8) 568 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) argument 575 & W(N),LEN(N),LENL(N),LENH(N),FC(N),IW(M),IW4(3*N+M) local 613 LENH(J) = L 647 60 LENH(J) = LEN(J) 649 IF (LENL(J).EQ.LENH(J)) THEN 662 CALL SMUMPS_MTRANSQ(IP,LEN,LENH,W,WLEN,A,NVAL,BVAL) 668 DO 85 II = IP(J)+int(LEN(J),8),IP(J)+int(LENH(J)-1,8) [all …]
|
H A D | zana_mtrans.F | 444 SUBROUTINE ZMUMPS_MTRANSQ(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument 447 INTEGER :: LENL(*),LENH(*),W(*) local 457 DO 15 II = IP(J)+int(LENL(J),8),IP(J)+int(LENH(J)-1,8) 568 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) argument 575 & W(N),LEN(N),LENL(N),LENH(N),FC(N),IW(M),IW4(3*N+M) local 613 LENH(J) = L 647 60 LENH(J) = LEN(J) 649 IF (LENL(J).EQ.LENH(J)) THEN 662 CALL ZMUMPS_MTRANSQ(IP,LEN,LENH,W,WLEN,A,NVAL,BVAL) 668 DO 85 II = IP(J)+int(LEN(J),8),IP(J)+int(LENH(J)-1,8) [all …]
|
H A D | cana_mtrans.F | 444 SUBROUTINE CMUMPS_MTRANSQ(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument 447 INTEGER :: LENL(*),LENH(*),W(*) local 457 DO 15 II = IP(J)+int(LENL(J),8),IP(J)+int(LENH(J)-1,8) 568 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) argument 575 & W(N),LEN(N),LENL(N),LENH(N),FC(N),IW(M),IW4(3*N+M) local 613 LENH(J) = L 647 60 LENH(J) = LEN(J) 649 IF (LENL(J).EQ.LENH(J)) THEN 662 CALL CMUMPS_MTRANSQ(IP,LEN,LENH,W,WLEN,A,NVAL,BVAL) 668 DO 85 II = IP(J)+int(LEN(J),8),IP(J)+int(LENH(J)-1,8) [all …]
|
/dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/abacus/ |
H A D | abaflt.F | 449 LENH = 10 + NUMB*12 450 WRITE (LUPRI,'(2X,70A1)') ('-', II = 1,LENH)
|
H A D | abavib.F | 1002 LENH = 10 + NUMB*12 1003 WRITE (LUPRI,'(2X,70A1)') ('-', II = 1,LENH)
|
H A D | abarint.F | 341 LENH = 10 + NUMB*12 342 WRITE (LUPRI,'(2X,70A1)') ('-', II = 1,LENH)
|
/dports/math/R-cran-lpSolve/lpSolve/src/ |
H A D | lusol1.h | 2229 int LENA2, int LENH, REAL HA[], int HJ[], int HK[], REAL AMAXR[], argument 3364 int LENH, LENA2, LOCH, LMAXR; local 3463 LENH = 1; 3469 LENH = 1; /* Dummy */ 3475 LENH = LUSOL->n; /* Length of heap */ 3476 LENA2 = LUSOL->lena-LENH; /* Reduced length of a, indc, indr */ 3481 LENA2,LENH,
|
/dports/math/lp_solve/lp_solve_5.5/bfp/bfp_LUSOL/LUSOL/ |
H A D | lusol1.c | 2229 int LENA2, int LENH, REAL HA[], int HJ[], int HK[], REAL AMAXR[], argument 3364 int LENH, LENA2, LOCH, LMAXR; local 3463 LENH = 1; 3469 LENH = 1; /* Dummy */ 3475 LENH = LUSOL->n; /* Length of heap */ 3476 LENA2 = LUSOL->lena-LENH; /* Reduced length of a, indc, indr */ 3481 LENA2,LENH,
|
/dports/math/ipopt/Ipopt-3.12.13/ThirdParty/Mumps/MUMPS/src/ |
H A D | zmumps_part2.F | 6974 SUBROUTINE ZMUMPS_450(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument 6977 INTEGER IP(*),LENL(*),LENH(*),W(*) local 6985 DO 15 II = IP(J)+LENL(J),IP(J)+LENH(J)-1 7093 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) 7097 & W(N),LEN(N),LENL(N),LENH(N),FC(N),IW(M),IW4(3*N+M) 7133 LENH(J) = L 7166 60 LENH(J) = LEN(J) 7168 IF (LENL(J).EQ.LENH(J)) THEN 7181 CALL ZMUMPS_450(IP,LEN,LENH,W,WLEN,A,NVAL,BVAL) 7187 DO 85 II = IP(J)+LEN(J),IP(J)+LENH(J)-1 [all …]
|
H A D | cmumps_part2.F | 6974 SUBROUTINE CMUMPS_450(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument 6977 INTEGER IP(*),LENL(*),LENH(*),W(*) local 6985 DO 15 II = IP(J)+LENL(J),IP(J)+LENH(J)-1 7093 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) 7097 & W(N),LEN(N),LENL(N),LENH(N),FC(N),IW(M),IW4(3*N+M) 7133 LENH(J) = L 7166 60 LENH(J) = LEN(J) 7168 IF (LENL(J).EQ.LENH(J)) THEN 7181 CALL CMUMPS_450(IP,LEN,LENH,W,WLEN,A,NVAL,BVAL) 7187 DO 85 II = IP(J)+LEN(J),IP(J)+LENH(J)-1 [all …]
|
H A D | dmumps_part2.F | 6975 SUBROUTINE DMUMPS_450(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument 6978 INTEGER IP(*),LENL(*),LENH(*),W(*) local 6986 DO 15 II = IP(J)+LENL(J),IP(J)+LENH(J)-1 7094 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) 7098 & W(N),LEN(N),LENL(N),LENH(N),FC(N),IW(M),IW4(3*N+M) 7134 LENH(J) = L 7167 60 LENH(J) = LEN(J) 7169 IF (LENL(J).EQ.LENH(J)) THEN 7182 CALL DMUMPS_450(IP,LEN,LENH,W,WLEN,A,NVAL,BVAL) 7188 DO 85 II = IP(J)+LEN(J),IP(J)+LENH(J)-1 [all …]
|
H A D | smumps_part2.F | 6970 SUBROUTINE SMUMPS_450(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument 6973 INTEGER IP(*),LENL(*),LENH(*),W(*) local 6981 DO 15 II = IP(J)+LENL(J),IP(J)+LENH(J)-1 7089 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) 7093 & W(N),LEN(N),LENL(N),LENH(N),FC(N),IW(M),IW4(3*N+M) 7129 LENH(J) = L 7162 60 LENH(J) = LEN(J) 7164 IF (LENL(J).EQ.LENH(J)) THEN 7177 CALL SMUMPS_450(IP,LEN,LENH,W,WLEN,A,NVAL,BVAL) 7183 DO 85 II = IP(J)+LEN(J),IP(J)+LENH(J)-1 [all …]
|
/dports/math/coinmumps/MUMPS_4.10.0/src/ |
H A D | cmumps_part2.F | 6974 SUBROUTINE CMUMPS_450(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument 6977 INTEGER IP(*),LENL(*),LENH(*),W(*) local 6985 DO 15 II = IP(J)+LENL(J),IP(J)+LENH(J)-1 7093 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) 7097 & W(N),LEN(N),LENL(N),LENH(N),FC(N),IW(M),IW4(3*N+M) 7133 LENH(J) = L 7166 60 LENH(J) = LEN(J) 7168 IF (LENL(J).EQ.LENH(J)) THEN 7181 CALL CMUMPS_450(IP,LEN,LENH,W,WLEN,A,NVAL,BVAL) 7187 DO 85 II = IP(J)+LEN(J),IP(J)+LENH(J)-1 [all …]
|
H A D | dmumps_part2.F | 6975 SUBROUTINE DMUMPS_450(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument 6978 INTEGER IP(*),LENL(*),LENH(*),W(*) local 6986 DO 15 II = IP(J)+LENL(J),IP(J)+LENH(J)-1 7094 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) 7098 & W(N),LEN(N),LENL(N),LENH(N),FC(N),IW(M),IW4(3*N+M) 7134 LENH(J) = L 7167 60 LENH(J) = LEN(J) 7169 IF (LENL(J).EQ.LENH(J)) THEN 7182 CALL DMUMPS_450(IP,LEN,LENH,W,WLEN,A,NVAL,BVAL) 7188 DO 85 II = IP(J)+LEN(J),IP(J)+LENH(J)-1 [all …]
|
H A D | smumps_part2.F | 6970 SUBROUTINE SMUMPS_450(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument 6973 INTEGER IP(*),LENL(*),LENH(*),W(*) local 6981 DO 15 II = IP(J)+LENL(J),IP(J)+LENH(J)-1 7089 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) argument 7093 & W(N),LEN(N),LENL(N),LENH(N),FC(N),IW(M),IW4(3*N+M) local 7129 LENH(J) = L 7162 60 LENH(J) = LEN(J) 7164 IF (LENL(J).EQ.LENH(J)) THEN 7177 CALL SMUMPS_450(IP,LEN,LENH,W,WLEN,A,NVAL,BVAL) 7183 DO 85 II = IP(J)+LEN(J),IP(J)+LENH(J)-1 [all …]
|
H A D | zmumps_part2.F | 6974 SUBROUTINE ZMUMPS_450(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument 6977 INTEGER IP(*),LENL(*),LENH(*),W(*) local 6985 DO 15 II = IP(J)+LENL(J),IP(J)+LENH(J)-1 7093 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) 7097 & W(N),LEN(N),LENL(N),LENH(N),FC(N),IW(M),IW4(3*N+M) 7133 LENH(J) = L 7166 60 LENH(J) = LEN(J) 7168 IF (LENL(J).EQ.LENH(J)) THEN 7181 CALL ZMUMPS_450(IP,LEN,LENH,W,WLEN,A,NVAL,BVAL) 7187 DO 85 II = IP(J)+LEN(J),IP(J)+LENH(J)-1 [all …]
|
/dports/math/mumps4/MUMPS_4.10.0/src/ |
H A D | cmumps_part2.F | 6974 SUBROUTINE CMUMPS_450(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument 6977 INTEGER IP(*),LENL(*),LENH(*),W(*) local 6985 DO 15 II = IP(J)+LENL(J),IP(J)+LENH(J)-1 7093 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) argument 7097 & W(N),LEN(N),LENL(N),LENH(N),FC(N),IW(M),IW4(3*N+M) local 7133 LENH(J) = L 7166 60 LENH(J) = LEN(J) 7168 IF (LENL(J).EQ.LENH(J)) THEN 7181 CALL CMUMPS_450(IP,LEN,LENH,W,WLEN,A,NVAL,BVAL) 7187 DO 85 II = IP(J)+LEN(J),IP(J)+LENH(J)-1 [all …]
|
H A D | dmumps_part2.F | 6970 SUBROUTINE DMUMPS_450(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument 6973 INTEGER IP(*),LENL(*),LENH(*),W(*) local 6981 DO 15 II = IP(J)+LENL(J),IP(J)+LENH(J)-1 7089 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) argument 7093 & W(N),LEN(N),LENL(N),LENH(N),FC(N),IW(M),IW4(3*N+M) local 7129 LENH(J) = L 7162 60 LENH(J) = LEN(J) 7164 IF (LENL(J).EQ.LENH(J)) THEN 7177 CALL DMUMPS_450(IP,LEN,LENH,W,WLEN,A,NVAL,BVAL) 7183 DO 85 II = IP(J)+LEN(J),IP(J)+LENH(J)-1 [all …]
|
H A D | zmumps_part2.F | 6974 SUBROUTINE ZMUMPS_450(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument 6977 INTEGER IP(*),LENL(*),LENH(*),W(*) local 6985 DO 15 II = IP(J)+LENL(J),IP(J)+LENH(J)-1 7093 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) argument 7097 & W(N),LEN(N),LENL(N),LENH(N),FC(N),IW(M),IW4(3*N+M) local 7133 LENH(J) = L 7166 60 LENH(J) = LEN(J) 7168 IF (LENL(J).EQ.LENH(J)) THEN 7181 CALL ZMUMPS_450(IP,LEN,LENH,W,WLEN,A,NVAL,BVAL) 7187 DO 85 II = IP(J)+LEN(J),IP(J)+LENH(J)-1 [all …]
|
H A D | smumps_part2.F | 6970 SUBROUTINE SMUMPS_450(IP,LENL,LENH,W,WLEN,A,NVAL,VAL) argument 6973 INTEGER IP(*),LENL(*),LENH(*),W(*) local 6981 DO 15 II = IP(J)+LENL(J),IP(J)+LENH(J)-1 7089 & W,LEN,LENL,LENH,FC,IW,IW4,RLX,RINF) argument 7093 & W(N),LEN(N),LENL(N),LENH(N),FC(N),IW(M),IW4(3*N+M) local 7129 LENH(J) = L 7162 60 LENH(J) = LEN(J) 7164 IF (LENL(J).EQ.LENH(J)) THEN 7177 CALL SMUMPS_450(IP,LEN,LENH,W,WLEN,A,NVAL,BVAL) 7183 DO 85 II = IP(J)+LEN(J),IP(J)+LENH(J)-1 [all …]
|
/dports/science/eccodes/eccodes-2.23.0-Source/definitions/metar/ |
H A D | x | 7861 LENH|N41333900|E002254700|0
|