Skip to content

Commit cefdb1d

Browse files
SteveDoyle2SteveDoyle2
committed
removd 700 lines
1 parent 9743416 commit cefdb1d

1 file changed

Lines changed: 21 additions & 288 deletions

File tree

‎Source/LK1/L1A-BD/BD_PARAM.f90‎

Lines changed: 21 additions & 288 deletions
Original file line numberDiff line numberDiff line change
@@ -447,29 +447,7 @@ SUBROUTINE BD_PARAM ( CARD )
447447

448448
ELSE IF (JCARD(2)(1:8) == 'CHKGRDS ') THEN
449449
PARNAM = 'CHKGRDS '
450-
CALL CHAR_FLD ( JCARD(3), JF(3), CHRPARM )
451-
IF (IERRFL(3) == 'N') THEN
452-
CALL LEFT_ADJ_BDFLD ( CHRPARM )
453-
IF (CHRPARM(1:1) == 'Y') THEN
454-
CHKGRDS = 'Y'
455-
ELSE IF (CHRPARM(1:1) == 'N') THEN
456-
CHKGRDS = 'N'
457-
ELSE
458-
WARN_ERR = WARN_ERR + 1
459-
WRITE(ERR,101) CARD
460-
WRITE(ERR,1189) PARNAM, 'Y OR N', CHRPARM, CHKGRDS
461-
IF (SUPWARN == 'N') THEN
462-
IF (ECHO == 'NONE ') THEN
463-
WRITE(F06,101) CARD
464-
ENDIF
465-
WRITE(F06,1189) PARNAM, 'Y OR N', CHRPARM, CHKGRDS
466-
ENDIF
467-
ENDIF
468-
ENDIF
469-
470-
CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,0,0,0,0,0 )! Make sure that there are no imbedded blanks in field 3
471-
CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,5,6,7,8,9 )! Issue warning if fields 4-9 not blank
472-
CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields
450+
CALL YES_NO_CHECK(CARD, JCARD, CHRPARM, PARNAM, CHKGRDS)
473451

474452
! CRS_CCS specifies the storage method (CRS or CCS)
475453

@@ -638,29 +616,7 @@ SUBROUTINE BD_PARAM ( CARD )
638616

639617
ELSE IF (JCARD(2)(1:8) == 'EIGNORM2') THEN
640618
PARNAM = 'EIGNORM2'
641-
CALL CHAR_FLD ( JCARD(3), JF(3), CHRPARM )
642-
IF (IERRFL(3) == 'N') THEN
643-
CALL LEFT_ADJ_BDFLD ( CHRPARM )
644-
IF (CHRPARM(1:1) == 'Y') THEN
645-
EIGNORM2 = 'Y'
646-
ELSE IF (CHRPARM(1:1) == 'N') THEN
647-
EIGNORM2 = 'N'
648-
ELSE
649-
WARN_ERR = WARN_ERR + 1
650-
WRITE(ERR,101) CARD
651-
WRITE(ERR,1189) PARNAM,'Y OR N',CHRPARM,EIGNORM2
652-
IF (SUPWARN == 'N') THEN
653-
IF (ECHO == 'NONE ') THEN
654-
WRITE(F06,101) CARD
655-
ENDIF
656-
WRITE(F06,1189) PARNAM,'Y OR N',CHRPARM,EIGNORM2
657-
ENDIF
658-
ENDIF
659-
ENDIF
660-
661-
CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,0,0,0,0,0 )! Make sure that there are no imbedded blanks in field 3
662-
CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,5,6,7,8,9 )! Issue warning if fields 4-9 not blank
663-
CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields
619+
CALL YES_NO_CHECK(CARD, JCARD, CHRPARM, PARNAM, EIGNORM2)
664620

665621
! ELFORCEN changes default from global to local or basic coords for calculating element nodal forces in LINK9
666622

@@ -696,29 +652,7 @@ SUBROUTINE BD_PARAM ( CARD )
696652

697653
ELSE IF (JCARD(2)(1:8) == 'EPSERR ') THEN
698654
PARNAM = 'EPSERR '
699-
CALL CHAR_FLD ( JCARD(3), JF(3), CHRPARM )
700-
IF (IERRFL(3) == 'N') THEN
701-
CALL LEFT_ADJ_BDFLD ( CHRPARM )
702-
IF (CHRPARM(1:1) == 'Y') THEN
703-
EPSERR = 'Y'
704-
ELSE IF (CHRPARM(1:1) == 'N') THEN
705-
EPSERR = 'N'
706-
ELSE
707-
WARN_ERR = WARN_ERR + 1
708-
WRITE(ERR,101) CARD
709-
WRITE(ERR,1189) PARNAM,'Y OR N',CHRPARM,EPSERR
710-
IF (SUPWARN == 'N') THEN
711-
IF (ECHO == 'NONE ') THEN
712-
WRITE(F06,101) CARD
713-
ENDIF
714-
WRITE(F06,1189) PARNAM,'Y OR N',CHRPARM,EPSERR
715-
ENDIF
716-
ENDIF
717-
ENDIF
718-
719-
CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,0,0,0,0,0 )! Make sure that there are no imbedded blanks in field 3
720-
CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,5,6,7,8,9 )! Issue warning if fields 4-9 not blank
721-
CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields
655+
CALL YES_NO_CHECK(CARD, JCARD, CHRPARM, PARNAM, EPSERR)
722656

723657
! EPSIL are roundoff numbers used in comparing computed values to zero
724658

@@ -1153,57 +1087,13 @@ SUBROUTINE BD_PARAM ( CARD )
11531087

11541088
ELSE IF (JCARD(2)(1:8) == 'KLLRAT ') THEN
11551089
PARNAM = 'KLLRAT '
1156-
CALL CHAR_FLD ( JCARD(3), JF(3), CHRPARM )
1157-
IF (IERRFL(3) == 'N') THEN
1158-
CALL LEFT_ADJ_BDFLD ( CHRPARM )
1159-
IF (CHRPARM(1:1) == 'Y') THEN
1160-
KLLRAT = 'Y'
1161-
ELSE IF (CHRPARM(1:1) == 'N') THEN
1162-
KLLRAT = 'N'
1163-
ELSE
1164-
WARN_ERR = WARN_ERR + 1
1165-
WRITE(ERR,101) CARD
1166-
WRITE(ERR,1189) PARNAM,'Y OR N',CHRPARM,KLLRAT
1167-
IF (SUPWARN == 'N') THEN
1168-
IF (ECHO == 'NONE ') THEN
1169-
WRITE(F06,101) CARD
1170-
ENDIF
1171-
WRITE(F06,1189) PARNAM,'Y OR N',CHRPARM,KLLRAT
1172-
ENDIF
1173-
ENDIF
1174-
ENDIF
1175-
1176-
CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,0,0,0,0,0 )! Make sure that there are no imbedded blanks in field 3
1177-
CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,5,6,7,8,9 )! Issue warning if fields 4-9 not blank
1178-
CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields
1090+
CALL YES_NO_CHECK(CARD, JCARD, CHRPARM, PARNAM, KLLRAT)
11791091

11801092
! KOORAT tells whether to calculate max ratio of matrix diagonal to factor diagonal
11811093

11821094
ELSE IF (JCARD(2)(1:8) == 'KOORAT ') THEN
11831095
PARNAM = 'KOORAT '
1184-
CALL CHAR_FLD ( JCARD(3), JF(3), CHRPARM )
1185-
IF (IERRFL(3) == 'N') THEN
1186-
CALL LEFT_ADJ_BDFLD ( CHRPARM )
1187-
IF (CHRPARM(1:1) == 'Y') THEN
1188-
KOORAT = 'Y'
1189-
ELSE IF (CHRPARM(1:1) == 'N') THEN
1190-
KOORAT = 'N'
1191-
ELSE
1192-
WARN_ERR = WARN_ERR + 1
1193-
WRITE(ERR,101) CARD
1194-
WRITE(ERR,1189) PARNAM,'Y OR N',CHRPARM,KOORAT
1195-
IF (SUPWARN == 'N') THEN
1196-
IF (ECHO == 'NONE ') THEN
1197-
WRITE(F06,101) CARD
1198-
ENDIF
1199-
WRITE(F06,1189) PARNAM,'Y OR N',CHRPARM,KOORAT
1200-
ENDIF
1201-
ENDIF
1202-
ENDIF
1203-
1204-
CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,0,0,0,0,0 )! Make sure that there are no imbedded blanks in field 3
1205-
CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,5,6,7,8,9 )! Issue warning if fields 4-9 not blank
1206-
CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields
1096+
CALL YES_NO_CHECK(CARD, JCARD, CHRPARM, PARNAM, KOORAT)
12071097

12081098
! LANCMETH sets the method to be used for Lanczos eigen extraction
12091099

@@ -1562,29 +1452,7 @@ SUBROUTINE BD_PARAM ( CARD )
15621452

15631453
ELSE IF (JCARD(2)(1:8) == 'PBARLSHR') THEN
15641454
PARNAM = 'PBARLSHR'
1565-
CALL CHAR_FLD ( JCARD(3), JF(3), CHRPARM )
1566-
IF (IERRFL(3) == 'N') THEN
1567-
CALL LEFT_ADJ_BDFLD ( CHRPARM )
1568-
IF (CHRPARM(1:1) == 'Y') THEN
1569-
PBARLSHR = 'Y'
1570-
ELSE IF (CHRPARM(1:1) == 'N') THEN
1571-
PBARLSHR = 'N'
1572-
ELSE
1573-
WARN_ERR = WARN_ERR + 1
1574-
WRITE(ERR,101) CARD
1575-
WRITE(ERR,1189) PARNAM,'Y OR N',CHRPARM,PBARLSHR
1576-
IF (SUPWARN == 'N') THEN
1577-
IF (ECHO == 'NONE ') THEN
1578-
WRITE(F06,101) CARD
1579-
ENDIF
1580-
WRITE(F06,1189) PARNAM,'Y OR N',CHRPARM,PBARLSHR
1581-
ENDIF
1582-
ENDIF
1583-
ENDIF
1584-
1585-
CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,0,0,0,0,0 )! Make sure that there are no imbedded blanks in field 3
1586-
CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,5,6,7,8,9 )! Issue warning if fields 4-9 not blank
1587-
CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields
1455+
CALL YES_NO_CHECK(CARD, JCARD, CHRPARM, PARNAM, PBARLSHR)
15881456

15891457
! PCOMPEQ Indicator to write equiv PSHELL, MAT2 to F06 for PCOMP's
15901458

@@ -2590,61 +2458,17 @@ SUBROUTINE BD_PARAM ( CARD )
25902458
CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,5,6,7,8,9 )! Issue warning if fields 4-9 not blank
25912459
CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields
25922460

2593-
! RCONDK = 'Y' executes LAPACK code in LINK3 to calc the recriprocal of the condition number, RCOND, of a matrix to be decomposed
25942461

2462+
! RCONDK = 'Y' executes LAPACK code in LINK3 to calc the recriprocal of the condition number, RCOND, of a matrix to be decomposed
25952463
ELSE IF (JCARD(2)(1:8) == 'RCONDK ') THEN
25962464
PARNAM = 'RCONDK '
2597-
CALL CHAR_FLD ( JCARD(3), JF(3), CHRPARM )
2598-
IF (IERRFL(3) == 'N') THEN
2599-
CALL LEFT_ADJ_BDFLD ( CHRPARM )
2600-
IF (CHRPARM(1:1) == 'Y') THEN
2601-
RCONDK = 'Y'
2602-
ELSE IF (CHRPARM(1:1) == 'N') THEN
2603-
RCONDK = 'N'
2604-
ELSE
2605-
WARN_ERR = WARN_ERR + 1
2606-
WRITE(ERR,101) CARD
2607-
WRITE(ERR,1189) PARNAM,'Y OR N',CHRPARM,RCONDK
2608-
IF (SUPWARN == 'N') THEN
2609-
IF (ECHO == 'NONE ') THEN
2610-
WRITE(F06,101) CARD
2611-
ENDIF
2612-
WRITE(F06,1189) PARNAM,'Y OR N',CHRPARM,RCONDK
2613-
ENDIF
2614-
ENDIF
2615-
ENDIF
2616-
2617-
CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,0,0,0,0,0 )! Make sure that there are no imbedded blanks in field 3
2618-
CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,5,6,7,8,9 )! Issue warning if fields 4-9 not blank
2619-
CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields
2465+
CALL YES_NO_CHECK(CARD, JCARD, CHRPARM, PARNAM, RCONDK)
26202466

26212467
! RELINK3 = 'Y' causes LINK3 (and therefore also LINK5) to be rerun in a RESTART. This is only used in linear statics
26222468

26232469
ELSE IF (JCARD(2)(1:8) == 'RELINK3 ') THEN
26242470
PARNAM = 'RELINK3 '
2625-
CALL CHAR_FLD ( JCARD(3), JF(3), CHRPARM )
2626-
IF (IERRFL(3) == 'N') THEN
2627-
CALL LEFT_ADJ_BDFLD ( CHRPARM )
2628-
IF (CHRPARM(1:1) == 'Y') THEN
2629-
RELINK3 = 'Y'
2630-
ELSE IF (CHRPARM(1:1) == 'N') THEN
2631-
RELINK3 = 'N'
2632-
ELSE
2633-
WARN_ERR = WARN_ERR + 1
2634-
WRITE(ERR,101) CARD
2635-
WRITE(ERR,1189) PARNAM,'Y OR N',CHRPARM,RELINK3
2636-
IF (SUPWARN == 'N') THEN
2637-
IF (ECHO == 'NONE ') THEN
2638-
WRITE(F06,101) CARD
2639-
ENDIF
2640-
WRITE(F06,1189) PARNAM,'Y OR N',CHRPARM,RELINK3
2641-
ENDIF
2642-
ENDIF
2643-
ENDIF
2644-
2645-
CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,0,0,0,0,0 )! Make sure that there are no imbedded blanks in field 3
2646-
CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,5,6,7,8,9 )! Issue warning if fields 4-9 not blank
2647-
CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields
2471+
CALL YES_NO_CHECK(CARD, JCARD, CHRPARM, PARNAM, RELINK3)
26482472

26492473
! SETLKTK parameter gives the option number for how LTERM_KGG is calculated
26502474

@@ -2790,29 +2614,7 @@ SUBROUTINE BD_PARAM ( CARD )
27902614
! SKIPMGG 'Y', 'N' indicator to say whether to skip calculation of MGG
27912615
ELSE IF (JCARD(2)(1:7) == 'SKIPMGG') THEN
27922616
PARNAM = 'SKIPMGG '
2793-
CALL CHAR_FLD ( JCARD(3), JF(3), CHRPARM )
2794-
IF (IERRFL(3) == 'N') THEN
2795-
CALL LEFT_ADJ_BDFLD ( CHRPARM )
2796-
IF (CHRPARM(1:1) == 'Y') THEN
2797-
SKIPMGG = 'Y'
2798-
ELSE IF (CHRPARM(1:1) == 'N') THEN
2799-
SKIPMGG = 'N'
2800-
ELSE
2801-
WARN_ERR = WARN_ERR + 1
2802-
WRITE(ERR,101) CARD
2803-
WRITE(ERR,1189) PARNAM,'Y OR N',CHRPARM,SKIPMGG
2804-
IF (SKIPMGG == 'N') THEN
2805-
IF (ECHO == 'NONE ') THEN
2806-
WRITE(F06,101) CARD
2807-
ENDIF
2808-
WRITE(F06,1189) PARNAM,'Y OR N',CHRPARM,SKIPMGG
2809-
ENDIF
2810-
ENDIF
2811-
ENDIF
2812-
2813-
CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,0,0,0,0,0 )! Make sure that there are no imbedded blanks in field 3
2814-
CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,5,6,7,8,9 )! Issue warning if fields 4-9 not blank
2815-
CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields
2617+
CALL YES_NO_CHECK(CARD, JCARD, CHRPARM, PARNAM, SKIPMGG)
28162618

28172619
! SOLLIB sets the method for solving equations (BANDED, SPARSE)
28182620

@@ -2933,95 +2735,27 @@ SUBROUTINE BD_PARAM ( CARD )
29332735
CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,5,6,7,8,9 )! Issue warning if fields 4-9 not blank
29342736
CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields
29352737

2936-
! SUPINFO determines whether warning messages are suppressed in the output file
29372738

2739+
! SUPINFO determines whether warning messages are suppressed in the output file
29382740
ELSE IF (JCARD(2)(1:8) == 'SUPINFO ') THEN
29392741
PARNAM = 'SUPINFO '
2940-
CALL CHAR_FLD ( JCARD(3), JF(3), CHRPARM )
2941-
IF (IERRFL(3) == 'N') THEN
2942-
CALL LEFT_ADJ_BDFLD ( CHRPARM )
2943-
IF (CHRPARM(1:1) == 'Y') THEN
2944-
SUPINFO = 'Y'
2945-
ELSE IF (CHRPARM(1:1) == 'N') THEN
2946-
SUPINFO = 'N'
2947-
ELSE
2948-
WARN_ERR = WARN_ERR + 1
2949-
WRITE(ERR,101) CARD
2950-
WRITE(ERR,1189) PARNAM,'Y OR N',CHRPARM,SUPINFO
2951-
IF (SUPINFO == 'N') THEN
2952-
IF (ECHO == 'NONE ') THEN
2953-
WRITE(F06,101) CARD
2954-
ENDIF
2955-
WRITE(F06,1189) PARNAM,'Y OR N',CHRPARM,SUPINFO
2956-
ENDIF
2957-
ENDIF
2958-
ENDIF
2742+
CALL YES_NO_CHECK(CARD, JCARD, CHRPARM, PARNAM, SUPINFO)
29592743

2960-
CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,0,0,0,0,0 )! Make sure that there are no imbedded blanks in field 3
2961-
CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,5,6,7,8,9 )! Issue warning if fields 4-9 not blank
2962-
CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields
2963-
2964-
! SUPWARN determines whether warning messages are suppressed in the output file
29652744

2745+
! SUPWARN determines whether warning messages are suppressed in the output file
29662746
ELSE IF (JCARD(2)(1:8) == 'SUPWARN ') THEN
29672747
PARNAM = 'SUPWARN '
2968-
CALL CHAR_FLD ( JCARD(3), JF(3), CHRPARM )
2969-
IF (IERRFL(3) == 'N') THEN
2970-
CALL LEFT_ADJ_BDFLD ( CHRPARM )
2971-
IF (CHRPARM(1:1) == 'Y') THEN
2972-
SUPWARN = 'Y'
2973-
ELSE IF (CHRPARM(1:1) == 'N') THEN
2974-
SUPWARN = 'N'
2975-
ELSE
2976-
WARN_ERR = WARN_ERR + 1
2977-
WRITE(ERR,101) CARD
2978-
WRITE(ERR,1189) PARNAM,'Y OR N',CHRPARM,SUPWARN
2979-
IF (SUPWARN == 'N') THEN
2980-
IF (ECHO == 'NONE ') THEN
2981-
WRITE(F06,101) CARD
2982-
ENDIF
2983-
WRITE(F06,1189) PARNAM,'Y OR N',CHRPARM,SUPWARN
2984-
ENDIF
2985-
ENDIF
2986-
ENDIF
2987-
2988-
CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,0,0,0,0,0 )! Make sure that there are no imbedded blanks in field 3
2989-
CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,5,6,7,8,9 )! Issue warning if fields 4-9 not blank
2990-
CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields
2991-
2992-
! NOCOUNT suppresses all "counter", progress-indicating, non-advance writes to
2993-
! standard output. It's good when debugging, and basically required if stdout
2994-
! has no rewrite capabilities (like a file). We should probably check if the
2995-
! output is not rewrite-friendly and set it automatically at some point.
2748+
CALL YES_NO_CHECK(CARD, JCARD, CHRPARM, PARNAM, SUPWARN)
29962749

2750+
! NOCOUNT suppresses all "counter", progress-indicating, non-advance writes to
2751+
! standard output. It's good when debugging, and basically required if stdout
2752+
! has no rewrite capabilities (like a file). We should probably check if the
2753+
! output is not rewrite-friendly and set it automatically at some point.
29972754
ELSE IF (JCARD(2)(1:8) == 'NOCOUNTS') THEN
29982755
PARNAM = 'NOCOUNTS'
2999-
CALL CHAR_FLD ( JCARD(3), JF(3), CHRPARM )
3000-
IF (IERRFL(3) == 'N') THEN
3001-
CALL LEFT_ADJ_BDFLD ( CHRPARM )
3002-
IF (CHRPARM(1:1) == 'Y') THEN
3003-
NOCOUNTS = 'Y'
3004-
ELSE IF (CHRPARM(1:1) == 'N') THEN
3005-
NOCOUNTS = 'N'
3006-
ELSE
3007-
WARN_ERR = WARN_ERR + 1
3008-
WRITE(ERR,101) CARD
3009-
WRITE(ERR,1189) PARNAM,'Y OR N',CHRPARM,SUPWARN
3010-
IF (SUPWARN == 'N') THEN
3011-
IF (ECHO == 'NONE ') THEN
3012-
WRITE(F06,101) CARD
3013-
ENDIF
3014-
WRITE(F06,1189) PARNAM,'Y OR N',CHRPARM,SUPWARN
3015-
ENDIF
3016-
ENDIF
3017-
ENDIF
3018-
3019-
CALL BD_IMBEDDED_BLANK ( JCARD,0,3,0,0,0,0,0,0 )! Make sure that there are no imbedded blanks in field 3
3020-
CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,5,6,7,8,9 )! Issue warning if fields 4-9 not blank
3021-
CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields
3022-
3023-
! THRESHK is used in determining if equilibration is performed (see LAPACK subr DLAQSB in MODULE LAPACK_BLAS_AUX_1)
2756+
CALL YES_NO_CHECK(CARD, JCARD, CHRPARM, PARNAM, NOCOUNTS)
30242757

2758+
! THRESHK is used in determining if equilibration is performed (see LAPACK subr DLAQSB in MODULE LAPACK_BLAS_AUX_1)
30252759
ELSE IF (JCARD(2)(1:8) == 'THRESHK ') THEN
30262760
PARNAM = 'THRESHK '
30272761
CALL R8FLD ( JCARD(3), JF(3), THRESHK )
@@ -3037,8 +2771,7 @@ SUBROUTINE BD_PARAM ( CARD )
30372771
CALL CARD_FLDS_NOT_BLANK ( JCARD,0,0,4,5,6,7,8,9 )! Issue warning if fields 4-9 not blank
30382772
CALL CRDERR ( CARD ) ! CRDERR prints errors found when reading fields
30392773

3040-
! TINY acts as a filter for small terms in matrix print
3041-
2774+
! TINY acts as a filter for small terms in matrix print
30422775
ELSE IF (JCARD(2)(1:8) == 'TINY ') THEN
30432776
PARNAM = 'TINY'
30442777
CALL CHAR_FLD ( JCARD(3), JF(3), CHRPARM )

0 commit comments

Comments
 (0)