592 lines
22 KiB
C++
592 lines
22 KiB
C++
#ifdef __cplusplus
|
|
extern "C" {
|
|
#endif
|
|
#include "lmp_f2c.h"
|
|
static integer c__1 = 1;
|
|
static real c_b179 = (float)0.;
|
|
static real c_b180 = (float)1.;
|
|
static integer c__0 = 0;
|
|
integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1, integer *n2, integer *n3,
|
|
integer *n4, ftnlen name_len, ftnlen opts_len)
|
|
{
|
|
integer ret_val, i__1, i__2, i__3;
|
|
int s_lmp_copy(char *, char *, ftnlen, ftnlen);
|
|
integer i_lmp_len(char *, ftnlen), s_lmp_cmp(char *, char *, ftnlen, ftnlen);
|
|
logical twostage;
|
|
integer i__;
|
|
char c1[1], c2[2], c3[3], c4[2];
|
|
integer ic, nb, iz, nx;
|
|
logical cname;
|
|
integer nbmin;
|
|
logical sname;
|
|
extern integer ieeeck_(integer *, real *, real *);
|
|
char subnam[16];
|
|
extern integer iparmq_(integer *, char *, char *, integer *, integer *, integer *, integer *,
|
|
ftnlen, ftnlen);
|
|
switch (*ispec) {
|
|
case 1:
|
|
goto L10;
|
|
case 2:
|
|
goto L10;
|
|
case 3:
|
|
goto L10;
|
|
case 4:
|
|
goto L80;
|
|
case 5:
|
|
goto L90;
|
|
case 6:
|
|
goto L100;
|
|
case 7:
|
|
goto L110;
|
|
case 8:
|
|
goto L120;
|
|
case 9:
|
|
goto L130;
|
|
case 10:
|
|
goto L140;
|
|
case 11:
|
|
goto L150;
|
|
case 12:
|
|
goto L160;
|
|
case 13:
|
|
goto L160;
|
|
case 14:
|
|
goto L160;
|
|
case 15:
|
|
goto L160;
|
|
case 16:
|
|
goto L160;
|
|
case 17:
|
|
goto L160;
|
|
}
|
|
ret_val = -1;
|
|
return ret_val;
|
|
L10:
|
|
ret_val = 1;
|
|
s_lmp_copy(subnam, name__, (ftnlen)16, name_len);
|
|
ic = *(unsigned char *)subnam;
|
|
iz = 'Z';
|
|
if (iz == 90 || iz == 122) {
|
|
if (ic >= 97 && ic <= 122) {
|
|
*(unsigned char *)subnam = (char)(ic - 32);
|
|
for (i__ = 2; i__ <= 6; ++i__) {
|
|
ic = *(unsigned char *)&subnam[i__ - 1];
|
|
if (ic >= 97 && ic <= 122) {
|
|
*(unsigned char *)&subnam[i__ - 1] = (char)(ic - 32);
|
|
}
|
|
}
|
|
}
|
|
} else if (iz == 233 || iz == 169) {
|
|
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >= 162 && ic <= 169) {
|
|
*(unsigned char *)subnam = (char)(ic + 64);
|
|
for (i__ = 2; i__ <= 6; ++i__) {
|
|
ic = *(unsigned char *)&subnam[i__ - 1];
|
|
if (ic >= 129 && ic <= 137 || ic >= 145 && ic <= 153 || ic >= 162 && ic <= 169) {
|
|
*(unsigned char *)&subnam[i__ - 1] = (char)(ic + 64);
|
|
}
|
|
}
|
|
}
|
|
} else if (iz == 218 || iz == 250) {
|
|
if (ic >= 225 && ic <= 250) {
|
|
*(unsigned char *)subnam = (char)(ic - 32);
|
|
for (i__ = 2; i__ <= 6; ++i__) {
|
|
ic = *(unsigned char *)&subnam[i__ - 1];
|
|
if (ic >= 225 && ic <= 250) {
|
|
*(unsigned char *)&subnam[i__ - 1] = (char)(ic - 32);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
*(unsigned char *)c1 = *(unsigned char *)subnam;
|
|
sname = *(unsigned char *)c1 == 'S' || *(unsigned char *)c1 == 'D';
|
|
cname = *(unsigned char *)c1 == 'C' || *(unsigned char *)c1 == 'Z';
|
|
if (!(cname || sname)) {
|
|
return ret_val;
|
|
}
|
|
s_lmp_copy(c2, subnam + 1, (ftnlen)2, (ftnlen)2);
|
|
s_lmp_copy(c3, subnam + 3, (ftnlen)3, (ftnlen)3);
|
|
s_lmp_copy(c4, c3 + 1, (ftnlen)2, (ftnlen)2);
|
|
twostage = i_lmp_len(subnam, (ftnlen)16) >= 11 && *(unsigned char *)&subnam[10] == '2';
|
|
switch (*ispec) {
|
|
case 1:
|
|
goto L50;
|
|
case 2:
|
|
goto L60;
|
|
case 3:
|
|
goto L70;
|
|
}
|
|
L50:
|
|
nb = 1;
|
|
if (s_lmp_cmp(subnam + 1, (char *)"LAORH", (ftnlen)5, (ftnlen)5) == 0) {
|
|
if (sname) {
|
|
nb = 32;
|
|
} else {
|
|
nb = 32;
|
|
}
|
|
} else if (s_lmp_cmp(c2, (char *)"GE", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (s_lmp_cmp(c3, (char *)"TRF", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nb = 64;
|
|
} else {
|
|
nb = 64;
|
|
}
|
|
} else if (s_lmp_cmp(c3, (char *)"QRF", (ftnlen)3, (ftnlen)3) == 0 ||
|
|
s_lmp_cmp(c3, (char *)"RQF", (ftnlen)3, (ftnlen)3) == 0 ||
|
|
s_lmp_cmp(c3, (char *)"LQF", (ftnlen)3, (ftnlen)3) == 0 ||
|
|
s_lmp_cmp(c3, (char *)"QLF", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nb = 32;
|
|
} else {
|
|
nb = 32;
|
|
}
|
|
} else if (s_lmp_cmp(c3, (char *)"QR ", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (*n3 == 1) {
|
|
if (sname) {
|
|
if (*n1 * *n2 <= 131072 || *n1 <= 8192) {
|
|
nb = *n1;
|
|
} else {
|
|
nb = 32768 / *n2;
|
|
}
|
|
} else {
|
|
if (*n1 * *n2 <= 131072 || *n1 <= 8192) {
|
|
nb = *n1;
|
|
} else {
|
|
nb = 32768 / *n2;
|
|
}
|
|
}
|
|
} else {
|
|
if (sname) {
|
|
nb = 1;
|
|
} else {
|
|
nb = 1;
|
|
}
|
|
}
|
|
} else if (s_lmp_cmp(c3, (char *)"LQ ", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (*n3 == 2) {
|
|
if (sname) {
|
|
if (*n1 * *n2 <= 131072 || *n1 <= 8192) {
|
|
nb = *n1;
|
|
} else {
|
|
nb = 32768 / *n2;
|
|
}
|
|
} else {
|
|
if (*n1 * *n2 <= 131072 || *n1 <= 8192) {
|
|
nb = *n1;
|
|
} else {
|
|
nb = 32768 / *n2;
|
|
}
|
|
}
|
|
} else {
|
|
if (sname) {
|
|
nb = 1;
|
|
} else {
|
|
nb = 1;
|
|
}
|
|
}
|
|
} else if (s_lmp_cmp(c3, (char *)"HRD", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nb = 32;
|
|
} else {
|
|
nb = 32;
|
|
}
|
|
} else if (s_lmp_cmp(c3, (char *)"BRD", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nb = 32;
|
|
} else {
|
|
nb = 32;
|
|
}
|
|
} else if (s_lmp_cmp(c3, (char *)"TRI", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nb = 64;
|
|
} else {
|
|
nb = 64;
|
|
}
|
|
} else if (s_lmp_cmp(subnam + 3, (char *)"QP3RK", (ftnlen)4, (ftnlen)5) == 0) {
|
|
if (sname) {
|
|
nb = 32;
|
|
} else {
|
|
nb = 32;
|
|
}
|
|
}
|
|
} else if (s_lmp_cmp(c2, (char *)"PO", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (s_lmp_cmp(c3, (char *)"TRF", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nb = 64;
|
|
} else {
|
|
nb = 64;
|
|
}
|
|
}
|
|
} else if (s_lmp_cmp(c2, (char *)"SY", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (s_lmp_cmp(c3, (char *)"TRF", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
if (twostage) {
|
|
nb = 192;
|
|
} else {
|
|
nb = 64;
|
|
}
|
|
} else {
|
|
if (twostage) {
|
|
nb = 192;
|
|
} else {
|
|
nb = 64;
|
|
}
|
|
}
|
|
} else if (sname && s_lmp_cmp(c3, (char *)"TRD", (ftnlen)3, (ftnlen)3) == 0) {
|
|
nb = 32;
|
|
} else if (sname && s_lmp_cmp(c3, (char *)"GST", (ftnlen)3, (ftnlen)3) == 0) {
|
|
nb = 64;
|
|
}
|
|
} else if (cname && s_lmp_cmp(c2, (char *)"HE", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (s_lmp_cmp(c3, (char *)"TRF", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (twostage) {
|
|
nb = 192;
|
|
} else {
|
|
nb = 64;
|
|
}
|
|
} else if (s_lmp_cmp(c3, (char *)"TRD", (ftnlen)3, (ftnlen)3) == 0) {
|
|
nb = 32;
|
|
} else if (s_lmp_cmp(c3, (char *)"GST", (ftnlen)3, (ftnlen)3) == 0) {
|
|
nb = 64;
|
|
}
|
|
} else if (sname && s_lmp_cmp(c2, (char *)"OR", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (*(unsigned char *)c3 == 'G') {
|
|
if (s_lmp_cmp(c4, (char *)"QR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"RQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"LQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"QL", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"HR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"TR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"BR", (ftnlen)2, (ftnlen)2) == 0) {
|
|
nb = 32;
|
|
}
|
|
} else if (*(unsigned char *)c3 == 'M') {
|
|
if (s_lmp_cmp(c4, (char *)"QR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"RQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"LQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"QL", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"HR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"TR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"BR", (ftnlen)2, (ftnlen)2) == 0) {
|
|
nb = 32;
|
|
}
|
|
}
|
|
} else if (cname && s_lmp_cmp(c2, (char *)"UN", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (*(unsigned char *)c3 == 'G') {
|
|
if (s_lmp_cmp(c4, (char *)"QR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"RQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"LQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"QL", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"HR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"TR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"BR", (ftnlen)2, (ftnlen)2) == 0) {
|
|
nb = 32;
|
|
}
|
|
} else if (*(unsigned char *)c3 == 'M') {
|
|
if (s_lmp_cmp(c4, (char *)"QR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"RQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"LQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"QL", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"HR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"TR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"BR", (ftnlen)2, (ftnlen)2) == 0) {
|
|
nb = 32;
|
|
}
|
|
}
|
|
} else if (s_lmp_cmp(c2, (char *)"GB", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (s_lmp_cmp(c3, (char *)"TRF", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
if (*n4 <= 64) {
|
|
nb = 1;
|
|
} else {
|
|
nb = 32;
|
|
}
|
|
} else {
|
|
if (*n4 <= 64) {
|
|
nb = 1;
|
|
} else {
|
|
nb = 32;
|
|
}
|
|
}
|
|
}
|
|
} else if (s_lmp_cmp(c2, (char *)"PB", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (s_lmp_cmp(c3, (char *)"TRF", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
if (*n2 <= 64) {
|
|
nb = 1;
|
|
} else {
|
|
nb = 32;
|
|
}
|
|
} else {
|
|
if (*n2 <= 64) {
|
|
nb = 1;
|
|
} else {
|
|
nb = 32;
|
|
}
|
|
}
|
|
}
|
|
} else if (s_lmp_cmp(c2, (char *)"TR", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (s_lmp_cmp(c3, (char *)"TRI", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nb = 64;
|
|
} else {
|
|
nb = 64;
|
|
}
|
|
} else if (s_lmp_cmp(c3, (char *)"EVC", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nb = 64;
|
|
} else {
|
|
nb = 64;
|
|
}
|
|
} else if (s_lmp_cmp(c3, (char *)"SYL", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
i__2 = 48, i__3 = (min(*n1, *n2) << 4) / 100;
|
|
i__1 = max(i__2, i__3);
|
|
nb = min(i__1, 240);
|
|
} else {
|
|
i__2 = 24, i__3 = (min(*n1, *n2) << 3) / 100;
|
|
i__1 = max(i__2, i__3);
|
|
nb = min(i__1, 80);
|
|
}
|
|
}
|
|
} else if (s_lmp_cmp(c2, (char *)"LA", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (s_lmp_cmp(c3, (char *)"UUM", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nb = 64;
|
|
} else {
|
|
nb = 64;
|
|
}
|
|
} else if (s_lmp_cmp(c3, (char *)"TRS", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nb = 32;
|
|
} else {
|
|
nb = 32;
|
|
}
|
|
}
|
|
} else if (sname && s_lmp_cmp(c2, (char *)"ST", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (s_lmp_cmp(c3, (char *)"EBZ", (ftnlen)3, (ftnlen)3) == 0) {
|
|
nb = 1;
|
|
}
|
|
} else if (s_lmp_cmp(c2, (char *)"GG", (ftnlen)2, (ftnlen)2) == 0) {
|
|
nb = 32;
|
|
if (s_lmp_cmp(c3, (char *)"HD3", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nb = 32;
|
|
} else {
|
|
nb = 32;
|
|
}
|
|
}
|
|
}
|
|
ret_val = nb;
|
|
return ret_val;
|
|
L60:
|
|
nbmin = 2;
|
|
if (s_lmp_cmp(c2, (char *)"GE", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (s_lmp_cmp(c3, (char *)"QRF", (ftnlen)3, (ftnlen)3) == 0 ||
|
|
s_lmp_cmp(c3, (char *)"RQF", (ftnlen)3, (ftnlen)3) == 0 ||
|
|
s_lmp_cmp(c3, (char *)"LQF", (ftnlen)3, (ftnlen)3) == 0 ||
|
|
s_lmp_cmp(c3, (char *)"QLF", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nbmin = 2;
|
|
} else {
|
|
nbmin = 2;
|
|
}
|
|
} else if (s_lmp_cmp(c3, (char *)"HRD", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nbmin = 2;
|
|
} else {
|
|
nbmin = 2;
|
|
}
|
|
} else if (s_lmp_cmp(c3, (char *)"BRD", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nbmin = 2;
|
|
} else {
|
|
nbmin = 2;
|
|
}
|
|
} else if (s_lmp_cmp(c3, (char *)"TRI", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nbmin = 2;
|
|
} else {
|
|
nbmin = 2;
|
|
}
|
|
} else if (s_lmp_cmp(subnam + 3, (char *)"QP3RK", (ftnlen)4, (ftnlen)5) == 0) {
|
|
if (sname) {
|
|
nbmin = 2;
|
|
} else {
|
|
nbmin = 2;
|
|
}
|
|
}
|
|
} else if (s_lmp_cmp(c2, (char *)"SY", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (s_lmp_cmp(c3, (char *)"TRF", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nbmin = 8;
|
|
} else {
|
|
nbmin = 8;
|
|
}
|
|
} else if (sname && s_lmp_cmp(c3, (char *)"TRD", (ftnlen)3, (ftnlen)3) == 0) {
|
|
nbmin = 2;
|
|
}
|
|
} else if (cname && s_lmp_cmp(c2, (char *)"HE", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (s_lmp_cmp(c3, (char *)"TRD", (ftnlen)3, (ftnlen)3) == 0) {
|
|
nbmin = 2;
|
|
}
|
|
} else if (sname && s_lmp_cmp(c2, (char *)"OR", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (*(unsigned char *)c3 == 'G') {
|
|
if (s_lmp_cmp(c4, (char *)"QR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"RQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"LQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"QL", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"HR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"TR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"BR", (ftnlen)2, (ftnlen)2) == 0) {
|
|
nbmin = 2;
|
|
}
|
|
} else if (*(unsigned char *)c3 == 'M') {
|
|
if (s_lmp_cmp(c4, (char *)"QR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"RQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"LQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"QL", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"HR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"TR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"BR", (ftnlen)2, (ftnlen)2) == 0) {
|
|
nbmin = 2;
|
|
}
|
|
}
|
|
} else if (cname && s_lmp_cmp(c2, (char *)"UN", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (*(unsigned char *)c3 == 'G') {
|
|
if (s_lmp_cmp(c4, (char *)"QR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"RQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"LQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"QL", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"HR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"TR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"BR", (ftnlen)2, (ftnlen)2) == 0) {
|
|
nbmin = 2;
|
|
}
|
|
} else if (*(unsigned char *)c3 == 'M') {
|
|
if (s_lmp_cmp(c4, (char *)"QR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"RQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"LQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"QL", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"HR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"TR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"BR", (ftnlen)2, (ftnlen)2) == 0) {
|
|
nbmin = 2;
|
|
}
|
|
}
|
|
} else if (s_lmp_cmp(c2, (char *)"GG", (ftnlen)2, (ftnlen)2) == 0) {
|
|
nbmin = 2;
|
|
if (s_lmp_cmp(c3, (char *)"HD3", (ftnlen)3, (ftnlen)3) == 0) {
|
|
nbmin = 2;
|
|
}
|
|
}
|
|
ret_val = nbmin;
|
|
return ret_val;
|
|
L70:
|
|
nx = 0;
|
|
if (s_lmp_cmp(c2, (char *)"GE", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (s_lmp_cmp(c3, (char *)"QRF", (ftnlen)3, (ftnlen)3) == 0 ||
|
|
s_lmp_cmp(c3, (char *)"RQF", (ftnlen)3, (ftnlen)3) == 0 ||
|
|
s_lmp_cmp(c3, (char *)"LQF", (ftnlen)3, (ftnlen)3) == 0 ||
|
|
s_lmp_cmp(c3, (char *)"QLF", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nx = 128;
|
|
} else {
|
|
nx = 128;
|
|
}
|
|
} else if (s_lmp_cmp(c3, (char *)"HRD", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nx = 128;
|
|
} else {
|
|
nx = 128;
|
|
}
|
|
} else if (s_lmp_cmp(c3, (char *)"BRD", (ftnlen)3, (ftnlen)3) == 0) {
|
|
if (sname) {
|
|
nx = 128;
|
|
} else {
|
|
nx = 128;
|
|
}
|
|
} else if (s_lmp_cmp(subnam + 3, (char *)"QP3RK", (ftnlen)4, (ftnlen)5) == 0) {
|
|
if (sname) {
|
|
nx = 128;
|
|
} else {
|
|
nx = 128;
|
|
}
|
|
}
|
|
} else if (s_lmp_cmp(c2, (char *)"SY", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (sname && s_lmp_cmp(c3, (char *)"TRD", (ftnlen)3, (ftnlen)3) == 0) {
|
|
nx = 32;
|
|
}
|
|
} else if (cname && s_lmp_cmp(c2, (char *)"HE", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (s_lmp_cmp(c3, (char *)"TRD", (ftnlen)3, (ftnlen)3) == 0) {
|
|
nx = 32;
|
|
}
|
|
} else if (sname && s_lmp_cmp(c2, (char *)"OR", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (*(unsigned char *)c3 == 'G') {
|
|
if (s_lmp_cmp(c4, (char *)"QR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"RQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"LQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"QL", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"HR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"TR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"BR", (ftnlen)2, (ftnlen)2) == 0) {
|
|
nx = 128;
|
|
}
|
|
}
|
|
} else if (cname && s_lmp_cmp(c2, (char *)"UN", (ftnlen)2, (ftnlen)2) == 0) {
|
|
if (*(unsigned char *)c3 == 'G') {
|
|
if (s_lmp_cmp(c4, (char *)"QR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"RQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"LQ", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"QL", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"HR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"TR", (ftnlen)2, (ftnlen)2) == 0 ||
|
|
s_lmp_cmp(c4, (char *)"BR", (ftnlen)2, (ftnlen)2) == 0) {
|
|
nx = 128;
|
|
}
|
|
}
|
|
} else if (s_lmp_cmp(c2, (char *)"GG", (ftnlen)2, (ftnlen)2) == 0) {
|
|
nx = 128;
|
|
if (s_lmp_cmp(c3, (char *)"HD3", (ftnlen)3, (ftnlen)3) == 0) {
|
|
nx = 128;
|
|
}
|
|
}
|
|
ret_val = nx;
|
|
return ret_val;
|
|
L80:
|
|
ret_val = 6;
|
|
return ret_val;
|
|
L90:
|
|
ret_val = 2;
|
|
return ret_val;
|
|
L100:
|
|
ret_val = (integer)((real)min(*n1, *n2) * (float)1.6);
|
|
return ret_val;
|
|
L110:
|
|
ret_val = 1;
|
|
return ret_val;
|
|
L120:
|
|
ret_val = 50;
|
|
return ret_val;
|
|
L130:
|
|
ret_val = 25;
|
|
return ret_val;
|
|
L140:
|
|
ret_val = 1;
|
|
if (ret_val == 1) {
|
|
ret_val = ieeeck_(&c__1, &c_b179, &c_b180);
|
|
}
|
|
return ret_val;
|
|
L150:
|
|
ret_val = 1;
|
|
if (ret_val == 1) {
|
|
ret_val = ieeeck_(&c__0, &c_b179, &c_b180);
|
|
}
|
|
return ret_val;
|
|
L160:
|
|
ret_val = iparmq_(ispec, name__, opts, n1, n2, n3, n4, name_len, opts_len);
|
|
return ret_val;
|
|
}
|
|
#ifdef __cplusplus
|
|
}
|
|
#endif
|