1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
SUBROUTINE FFHELP (*,*,J)
CHARACTER*1 QMARK
CHARACTER*4 STOP, YES, HELP, XX
COMMON /MACHIN/ MACH
COMMON /SYSTEM/ DUMMY(3), IN
COMMON /XREADX/ NOUT
COMMON /XECHOX/ SKIP(2), IECHOS
COMMON /QMARKQ/ QMARK
DATA STOP, YES, HELP / 'STOP', 'Y ', 'HELP' /
C
C THIS ROUTINE IS CALLED ONLY BY FF
C
GO TO (10,50,100,120,140), J
10 WRITE (NOUT,20)
20 FORMAT (///1X,
1 'GENERATED OUTPUT CARDS ARE SAVED ONLY IF FILE NAME IS GIVEN.',
2 //,' YOU MAY ENTER NASTRAN EXECUTIVE CONTROL AND CASE CONTROL',
2 ' CARDS FIRST',/,' (NO INPUT ECHO ON SCREEN)', //,
3 ' ADDITIONAL INPUT INFORMATION WILL BE GIVEN WHEN YOU ENTER ',
3 12H'BEGIN BULK', //,
4 ' YOU MAY QUIT FREE-FIELD PROGRAM AT ANY TIME BY ENTERING ',
4 6H'STOP', /,' NORMALLY, JOB TERMINATES BY ',9H'ENDDATA', //,
5 ' YOU MAY USE ',10H'READFILE',' COMMAND TO READ ANY FILE WHICH',
5 14H WAS 'STOPPED', /,
5 ' BEFORE, AND CONTINUE FROM WHERE THE PREVIOUS JOB ENDED', //,
6 ' FREE-FIELD INPUT IS AVAILABLE ONLY IN BULK DATA SECTION', /,
6 ' AND IS ACTIVATED BY A COMMA OR EQUAL SIGN IN COLS. 1 THRU 10',
7 //,' BOTH UPPER-CASE AND LOWER-CASE LETTERS ARE ACCEPTABLE',//,
8 ' REFERENCE - G.CHAN: ',1H','COSMIC/NASTRAN FREE-FIELD INPUT',
8 2H',, /13X,'12TH NASTRAN USERS',1H',' COLLOQUIUM, MAY 1984')
WRITE (NOUT,30) QMARK
30 FORMAT (/,' MORE',A1,' (Y,N) - ')
READ (IN,40,END=80) XX
40 FORMAT (A4)
CALL UPCASE (XX,4)
IF (XX .NE. YES) GO TO 80
C
50 WRITE (NOUT,60)
60 FORMAT (///,' THE FOLLOWING SYMBOLS ARE USED FOR FREE-FIELD INPUT'
1, //10X,'SYMBOL', 12X,'FUNCTION',/,9X,2('----'),5X,10('----'),
2 /10X,', OR BLANK FIELD SEPERATORS',
3 /10X,' = DUPLICATES ONE CORRESPONDING FIELD',
4 /10X,' == DUPLICATES THE REMAINING FIELDS',
5 /10X,' *(N) INCREMENT BY N',
6 /10X,' %(E) ENDING VALUE BY E',
7 /10X,' / THIS INPUT FIELD IS SAME AS PREVIOUS FIELD',
8 /10X,' J) FIELD INDEX, J-TH FIELD (MUST FOLLOWED BY A V
9ALUE)',
O /10X,')+ OR 10) INDEX FOR CONTINUATION FIELD',
A /10X,' ) (IN COL. 1 ONLY) DUPLICATES THE CONTINUATION
BID',/22X,'OF PREVIOUS CARD INTO FIELD 1 OF CURRENT CARD',
C /10X,' , COL.1 ONLY, AUTO-CONTINUATION ID GENERATION',
D /10X,' =(N) 1ST FIELD ONLY, DUPLICATES N CARDS WITH PROPE
ER',/22X,' INCREMENTS',
F /12X,'+A-I',6X,'CONTINUATION ID CAN BE DUPLICATED AUTOMATICALLY
G', /22X,'ONLY IF IT IS IN PLUS-ALPHA-MINUS-INTEGER FORM',
H //1X,'EXAMPLES:', /1X,'GRID, 101,, 0. 0. , 7. 8)2 )+ABC-2',
I /1X,'=(11),*(1) ,, *(1.), / %(23.45),==')
IF (J.EQ.1 .OR. IECHOS.NE.-2) GO TO 170
WRITE (NOUT,30) QMARK
READ (IN,40,END=80) XX
CALL UPCASE (XX,4)
IF (XX .EQ. YES) GO TO 140
80 IF (XX .EQ. STOP) RETURN 2
IF (MACH.EQ.4 .AND. IN.EQ.5) REWIND IN
GO TO 190
C
100 WRITE (NOUT,110)
110 FORMAT (//,24H ENTER 'N' FOR NO PUNCH,, /7X,
1 38H'Y' FOR PUNCH IN FREE-FIELD FORMAT, OR, /7X,
2 43H'X' FOR PUNCH IN NASTRAN FIXED-FIELD FORMAT,/)
GO TO 190
C
120 WRITE (NOUT,130)
130 FORMAT (/,' MIFYLE - IS A RESERVED WORD. TRY ANY OTHER NAME')
GO TO 190
C
140 WRITE (NOUT,150)
150 FORMAT (//,' *** FREE-FIELD INPUT IS OPTIONAL.',//5X,'FOUR (4)',
1 ' CONTROL OPTIONS ARE AVAILABLE - CAN BE ENTERED AT ANY TIME',
2 /7X,'1. PROMPT=ON, PROMPT=OFF, OR PROMPT=YES(DEFAULT)',
3 /7X,'2. SCALE/10, OR SCALE/8',
4 /7X,'3. CANCEL=N, (TO CANCEL N PREVIOUSLY GENERATED CARDS)',
5 /7X,'4. LIST =N, (TO LIST N PREVIOUSLY GENERATED CARDS)',
6//7X,'ENTER ''HELP'' IF YOU NEED ADDITIONAL INSTRUCTIONS',
7//7X,'INTEGER INPUT SHOULD BE LIMITED TO 8 DIGITS',
8 /7X,'UP TO 12 DIGITS ARE ALLOWED FOR FLOATING PT. NUMBER INPUT',
9 /7X,'HOWEVER, ONLY UP TO 8 DIGIT ACCURACY IS KEPT',
O /7X,' INPUT RESULT ',
1 /7X,' ------------ --------',
2 /7X,'E.G. 123.456789 123.4567',
3 /7X,' 123.456789+6 .12345+9',
4 /7X,' -123.4567D+5 -.1234+8',
5 /7X,' 123.45678E+4 1234567.',
6 /7X,' 0.00123456-3 .12345-5',
7 /7X,' 0.0123456789 .0123456',
8 /7X,' .00000123456 .12345-5')
IF (IECHOS .NE. -2) WRITE (NOUT,160)
160 FORMAT (/7X,'(3 AND 4 ARE AVAILABLE ONLY IN THE FREE-FIELD STAND',
1 '-ALONE VERSION)')
170 WRITE (NOUT,180)
180 FORMAT (/4X,'UP TO 94 CHARATERS ALLOWABLE ON AN INPUT LINE. ',
1 ' C/R TO CONTINUE')
READ (IN,40,END=80) XX
CALL UPCASE (XX,4)
IF (XX .EQ. HELP) GO TO 50
IF (J .NE. 1) GO TO 80
190 RETURN 1
END
|
