Home
last modified time | relevance | path

Searched refs:LENH (Results 1 – 25 of 28) sorted by relevance

12

/dports/science/aircraft-datcom/aircraft-datcom-ed877bb/src/
H A Dxnam23.f18 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 Dnmlist.f17 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 Dblockd.f16 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 Ddana_mtrans.F444 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 Dsana_mtrans.F444 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 Dzana_mtrans.F444 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 Dcana_mtrans.F444 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 Dabaflt.F449 LENH = 10 + NUMB*12
450 WRITE (LUPRI,'(2X,70A1)') ('-', II = 1,LENH)
H A Dabavib.F1002 LENH = 10 + NUMB*12
1003 WRITE (LUPRI,'(2X,70A1)') ('-', II = 1,LENH)
H A Dabarint.F341 LENH = 10 + NUMB*12
342 WRITE (LUPRI,'(2X,70A1)') ('-', II = 1,LENH)
/dports/math/R-cran-lpSolve/lpSolve/src/
H A Dlusol1.h2229 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 Dlusol1.c2229 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 Dzmumps_part2.F6974 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 Dcmumps_part2.F6974 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 Ddmumps_part2.F6975 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 Dsmumps_part2.F6970 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 Dcmumps_part2.F6974 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 Ddmumps_part2.F6975 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 Dsmumps_part2.F6970 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 Dzmumps_part2.F6974 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 Dcmumps_part2.F6974 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 Ddmumps_part2.F6970 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 Dzmumps_part2.F6974 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 Dsmumps_part2.F6970 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 Dx7861 LENH|N41333900|E002254700|0

12