📄 ilaenv.c
字号:
} else if (s_cmp(c3, "QRF", (ftnlen)3, (ftnlen)3) == 0 || s_cmp(c3,
"RQF", (ftnlen)3, (ftnlen)3) == 0 || s_cmp(c3, "LQF", (ftnlen)
3, (ftnlen)3) == 0 || s_cmp(c3, "QLF", (ftnlen)3, (ftnlen)3)
== 0) {
/*< IF( SNAME ) THEN >*/
if (sname) {
/*< NB = 32 >*/
nb = 32;
/*< ELSE >*/
} else {
/*< NB = 32 >*/
nb = 32;
/*< END IF >*/
}
/*< ELSE IF( C3.EQ.'HRD' ) THEN >*/
} else if (s_cmp(c3, "HRD", (ftnlen)3, (ftnlen)3) == 0) {
/*< IF( SNAME ) THEN >*/
if (sname) {
/*< NB = 32 >*/
nb = 32;
/*< ELSE >*/
} else {
/*< NB = 32 >*/
nb = 32;
/*< END IF >*/
}
/*< ELSE IF( C3.EQ.'BRD' ) THEN >*/
} else if (s_cmp(c3, "BRD", (ftnlen)3, (ftnlen)3) == 0) {
/*< IF( SNAME ) THEN >*/
if (sname) {
/*< NB = 32 >*/
nb = 32;
/*< ELSE >*/
} else {
/*< NB = 32 >*/
nb = 32;
/*< END IF >*/
}
/*< ELSE IF( C3.EQ.'TRI' ) THEN >*/
} else if (s_cmp(c3, "TRI", (ftnlen)3, (ftnlen)3) == 0) {
/*< IF( SNAME ) THEN >*/
if (sname) {
/*< NB = 64 >*/
nb = 64;
/*< ELSE >*/
} else {
/*< NB = 64 >*/
nb = 64;
/*< END IF >*/
}
/*< END IF >*/
}
/*< ELSE IF( C2.EQ.'PO' ) THEN >*/
} else if (s_cmp(c2, "PO", (ftnlen)2, (ftnlen)2) == 0) {
/*< IF( C3.EQ.'TRF' ) THEN >*/
if (s_cmp(c3, "TRF", (ftnlen)3, (ftnlen)3) == 0) {
/*< IF( SNAME ) THEN >*/
if (sname) {
/*< NB = 64 >*/
nb = 64;
/*< ELSE >*/
} else {
/*< NB = 64 >*/
nb = 64;
/*< END IF >*/
}
/*< END IF >*/
}
/*< ELSE IF( C2.EQ.'SY' ) THEN >*/
} else if (s_cmp(c2, "SY", (ftnlen)2, (ftnlen)2) == 0) {
/*< IF( C3.EQ.'TRF' ) THEN >*/
if (s_cmp(c3, "TRF", (ftnlen)3, (ftnlen)3) == 0) {
/*< IF( SNAME ) THEN >*/
if (sname) {
/*< NB = 64 >*/
nb = 64;
/*< ELSE >*/
} else {
/*< NB = 64 >*/
nb = 64;
/*< END IF >*/
}
/*< ELSE IF( SNAME .AND. C3.EQ.'TRD' ) THEN >*/
} else if (sname && s_cmp(c3, "TRD", (ftnlen)3, (ftnlen)3) == 0) {
/*< NB = 32 >*/
nb = 32;
/*< ELSE IF( SNAME .AND. C3.EQ.'GST' ) THEN >*/
} else if (sname && s_cmp(c3, "GST", (ftnlen)3, (ftnlen)3) == 0) {
/*< NB = 64 >*/
nb = 64;
/*< END IF >*/
}
/*< ELSE IF( CNAME .AND. C2.EQ.'HE' ) THEN >*/
} else if (cname && s_cmp(c2, "HE", (ftnlen)2, (ftnlen)2) == 0) {
/*< IF( C3.EQ.'TRF' ) THEN >*/
if (s_cmp(c3, "TRF", (ftnlen)3, (ftnlen)3) == 0) {
/*< NB = 64 >*/
nb = 64;
/*< ELSE IF( C3.EQ.'TRD' ) THEN >*/
} else if (s_cmp(c3, "TRD", (ftnlen)3, (ftnlen)3) == 0) {
/*< NB = 32 >*/
nb = 32;
/*< ELSE IF( C3.EQ.'GST' ) THEN >*/
} else if (s_cmp(c3, "GST", (ftnlen)3, (ftnlen)3) == 0) {
/*< NB = 64 >*/
nb = 64;
/*< END IF >*/
}
/*< ELSE IF( SNAME .AND. C2.EQ.'OR' ) THEN >*/
} else if (sname && s_cmp(c2, "OR", (ftnlen)2, (ftnlen)2) == 0) {
/*< IF( C3( 1:1 ).EQ.'G' ) THEN >*/
if (*(unsigned char *)c3 == 'G') {
/*< >*/
if (s_cmp(c4, "QR", (ftnlen)2, (ftnlen)2) == 0 || s_cmp(c4, "RQ",
(ftnlen)2, (ftnlen)2) == 0 || s_cmp(c4, "LQ", (ftnlen)2, (
ftnlen)2) == 0 || s_cmp(c4, "QL", (ftnlen)2, (ftnlen)2) ==
0 || s_cmp(c4, "HR", (ftnlen)2, (ftnlen)2) == 0 || s_cmp(
c4, "TR", (ftnlen)2, (ftnlen)2) == 0 || s_cmp(c4, "BR", (
ftnlen)2, (ftnlen)2) == 0) {
/*< NB = 32 >*/
nb = 32;
/*< END IF >*/
}
/*< ELSE IF( C3( 1:1 ).EQ.'M' ) THEN >*/
} else if (*(unsigned char *)c3 == 'M') {
/*< >*/
if (s_cmp(c4, "QR", (ftnlen)2, (ftnlen)2) == 0 || s_cmp(c4, "RQ",
(ftnlen)2, (ftnlen)2) == 0 || s_cmp(c4, "LQ", (ftnlen)2, (
ftnlen)2) == 0 || s_cmp(c4, "QL", (ftnlen)2, (ftnlen)2) ==
0 || s_cmp(c4, "HR", (ftnlen)2, (ftnlen)2) == 0 || s_cmp(
c4, "TR", (ftnlen)2, (ftnlen)2) == 0 || s_cmp(c4, "BR", (
ftnlen)2, (ftnlen)2) == 0) {
/*< NB = 32 >*/
nb = 32;
/*< END IF >*/
}
/*< END IF >*/
}
/*< ELSE IF( CNAME .AND. C2.EQ.'UN' ) THEN >*/
} else if (cname && s_cmp(c2, "UN", (ftnlen)2, (ftnlen)2) == 0) {
/*< IF( C3( 1:1 ).EQ.'G' ) THEN >*/
if (*(unsigned char *)c3 == 'G') {
/*< >*/
if (s_cmp(c4, "QR", (ftnlen)2, (ftnlen)2) == 0 || s_cmp(c4, "RQ",
(ftnlen)2, (ftnlen)2) == 0 || s_cmp(c4, "LQ", (ftnlen)2, (
ftnlen)2) == 0 || s_cmp(c4, "QL", (ftnlen)2, (ftnlen)2) ==
0 || s_cmp(c4, "HR", (ftnlen)2, (ftnlen)2) == 0 || s_cmp(
c4, "TR", (ftnlen)2, (ftnlen)2) == 0 || s_cmp(c4, "BR", (
ftnlen)2, (ftnlen)2) == 0) {
/*< NB = 32 >*/
nb = 32;
/*< END IF >*/
}
/*< ELSE IF( C3( 1:1 ).EQ.'M' ) THEN >*/
} else if (*(unsigned char *)c3 == 'M') {
/*< >*/
if (s_cmp(c4, "QR", (ftnlen)2, (ftnlen)2) == 0 || s_cmp(c4, "RQ",
(ftnlen)2, (ftnlen)2) == 0 || s_cmp(c4, "LQ", (ftnlen)2, (
ftnlen)2) == 0 || s_cmp(c4, "QL", (ftnlen)2, (ftnlen)2) ==
0 || s_cmp(c4, "HR", (ftnlen)2, (ftnlen)2) == 0 || s_cmp(
c4, "TR", (ftnlen)2, (ftnlen)2) == 0 || s_cmp(c4, "BR", (
ftnlen)2, (ftnlen)2) == 0) {
/*< NB = 32 >*/
nb = 32;
/*< END IF >*/
}
/*< END IF >*/
}
/*< ELSE IF( C2.EQ.'GB' ) THEN >*/
} else if (s_cmp(c2, "GB", (ftnlen)2, (ftnlen)2) == 0) {
/*< IF( C3.EQ.'TRF' ) THEN >*/
if (s_cmp(c3, "TRF", (ftnlen)3, (ftnlen)3) == 0) {
/*< IF( SNAME ) THEN >*/
if (sname) {
/*< IF( N4.LE.64 ) THEN >*/
if (*n4 <= 64) {
/*< NB = 1 >*/
nb = 1;
/*< ELSE >*/
} else {
/*< NB = 32 >*/
nb = 32;
/*< END IF >*/
}
/*< ELSE >*/
} else {
/*< IF( N4.LE.64 ) THEN >*/
if (*n4 <= 64) {
/*< NB = 1 >*/
nb = 1;
/*< ELSE >*/
} else {
/*< NB = 32 >*/
nb = 32;
/*< END IF >*/
}
/*< END IF >*/
}
/*< END IF >*/
}
/*< ELSE IF( C2.EQ.'PB' ) THEN >*/
} else if (s_cmp(c2, "PB", (ftnlen)2, (ftnlen)2) == 0) {
/*< IF( C3.EQ.'TRF' ) THEN >*/
if (s_cmp(c3, "TRF", (ftnlen)3, (ftnlen)3) == 0) {
/*< IF( SNAME ) THEN >*/
if (sname) {
/*< IF( N2.LE.64 ) THEN >*/
if (*n2 <= 64) {
/*< NB = 1 >*/
nb = 1;
/*< ELSE >*/
} else {
/*< NB = 32 >*/
nb = 32;
/*< END IF >*/
}
/*< ELSE >*/
} else {
/*< IF( N2.LE.64 ) THEN >*/
if (*n2 <= 64) {
/*< NB = 1 >*/
nb = 1;
/*< ELSE >*/
} else {
/*< NB = 32 >*/
nb = 32;
/*< END IF >*/
}
/*< END IF >*/
}
/*< END IF >*/
}
/*< ELSE IF( C2.EQ.'TR' ) THEN >*/
} else if (s_cmp(c2, "TR", (ftnlen)2, (ftnlen)2) == 0) {
/*< IF( C3.EQ.'TRI' ) THEN >*/
if (s_cmp(c3, "TRI", (ftnlen)3, (ftnlen)3) == 0) {
/*< IF( SNAME ) THEN >*/
if (sname) {
/*< NB = 64 >*/
nb = 64;
/*< ELSE >*/
} else {
/*< NB = 64 >*/
nb = 64;
/*< END IF >*/
}
/*< END IF >*/
}
/*< ELSE IF( C2.EQ.'LA' ) THEN >*/
} else if (s_cmp(c2, "LA", (ftnlen)2, (ftnlen)2) == 0) {
/*< IF( C3.EQ.'UUM' ) THEN >*/
if (s_cmp(c3, "UUM", (ftnlen)3, (ftnlen)3) == 0) {
/*< IF( SNAME ) THEN >*/
if (sname) {
/*< NB = 64 >*/
nb = 64;
/*< ELSE >*/
} else {
/*< NB = 64 >*/
nb = 64;
/*< END IF >*/
}
/*< END IF >*/
}
/*< ELSE IF( SNAME .AND. C2.EQ.'ST' ) THEN >*/
} else if (sname && s_cmp(c2, "ST", (ftnlen)2, (ftnlen)2) == 0) {
/*< IF( C3.EQ.'EBZ' ) THEN >*/
if (s_cmp(c3, "EBZ", (ftnlen)3, (ftnlen)3) == 0) {
/*< NB = 1 >*/
nb = 1;
/*< END IF >*/
}
/*< END IF >*/
}
/*< ILAENV = NB >*/
ret_val = nb;
/*< RETURN >*/
return ret_val;
/*< 200 CONTINUE >*/
L200:
/* ISPEC = 2: minimum block size */
/*< NBMIN = 2 >*/
nbmin = 2;
/*< IF( C2.EQ.'GE' ) THEN >*/
if (s_cmp(c2, "GE", (ftnlen)2, (ftnlen)2) == 0) {
/*< >*/
if (s_cmp(c3, "QRF", (ftnlen)3, (ftnlen)3) == 0 || s_cmp(c3, "RQF", (
ftnlen)3, (ftnlen)3) == 0 || s_cmp(c3, "LQF", (ftnlen)3, (
ftnlen)3) == 0 || s_cmp(c3, "QLF", (ftnlen)3, (ftnlen)3) == 0)
{
/*< IF( SNAME ) THEN >*/
if (sname) {
/*< NBMIN = 2 >*/
nbmin = 2;
/*< ELSE >*/
} else {
/*< NBMIN = 2 >*/
nbmin = 2;
/*< END IF >*/
}
/*< ELSE IF( C3.EQ.'HRD' ) THEN >*/
} else if (s_cmp(c3, "HRD", (ftnlen)3, (ftnlen)3) == 0) {
/*< IF( SNAME ) THEN >*/
if (sname) {
/*< NBMIN = 2 >*/
nbmin = 2;
/*< ELSE >*/
} else {
/*< NBMIN = 2 >*/
nbmin = 2;
/*< END IF >*/
}
/*< ELSE IF( C3.EQ.'BRD' ) THEN >*/
} else if (s_cmp(c3, "BRD", (ftnlen)3, (ftnlen)3) == 0) {
/*< IF( SNAME ) THEN >*/
if (sname) {
/*< NBMIN = 2 >*/
nbmin = 2;
/*< ELSE >*/
} else {
/*< NBMIN = 2 >*/
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -