📄 a02a.for
字号:
9 8X,2HII,8X,2HNN,2X,2HNN,4X,2HNN,3X,2HAA,8X,2HAA,8X,2H**,/,21X,2H*
1*,8X,12(1HA),3X,2HDD,8X,2HDD,8X,2HII,8X,2HNN,3X,2HNN,3X,2HNN,3X,
2 12(1HA),8X,2H**)
2002 FORMAT (21X,2H**,8X,12(1HA),3X,2HDD,8X,2HDD,8X,2HII,8X,2HNN,4X,
12HNN,2X,2HNN,3X,12(1HA),8X,2H**,/,21X,2H**,8X,2HAA,8X,2HAA,3X,2HDD
2,8X,2HDD,8X,2HII,8X,2HNN,5X,2HNN,1X,2HNN,3X,2HAA,8X,2HAA,8X,2H**,/
3 ,21X,2H**,8X,2HAA,
4 8X,2HAA,3X,2HDD,8X,2HDD,8X,2HII,8X,2HNN,6X,4(1HN),3X,2HAA,8X,
5 2HAA,8X,2H**,/,21X,2H**,8X,2HAA,8X,2HAA,3X,2HDD,7X,2HDD,9X,2HII,
6 8X,2HNN,7X,3HNNN,3X,2HAA,8X,2HAA,8X,2H**,/,21X,2H**,8X,2HAA,8X,
7 2HAA,3X,10(1HD),5X,12(1HI),3X,2HNN,8X,2HNN,3X,2HAA,8X,2HAA,8X,
8 2H**,/,21X,2H**,8X,2HAA,8X,2HAA,3X,9(1HD),6X,12(1HI),3X,2HNN,9X,
9 1HN,3X,2HAA,8X,2HAA,8X,2H**,/,2(21X,2H**,88X,2H**,/),
X 21X,2H**,37X,15HVERSION - 84.00,36X,2H**,/,
A 21X,2H**,23X,43HREFERENCE- ADINA ENGINEERING REPORT AE 84-1,22X,
B 2H**,/2(21X,2H**,88X,2H**,/),21X,92(1H*),/21X,92(1H*),///)
2003 FORMAT (26X,47HTHIS PROGRAM IS IN ITS ENTIRETY PROPRIETARY TO ,
1 35HAND IS SUPPORTED AND MAINTAINED BY //,
2 26X,20HADINA ENGINEERING AB,35X,21HADINA ENGINEERING INC/
7 26X,14HMUNKGATAN 20 D,41X,15H71 ELTON AVENUE /
4 26X,24HS-722 12 VASTERAS SWEDEN,31X,16HWATERTOWN MA USA /
5 26X,16HTEL 021-14 40 50,39X,18HTEL (617) 926-5199 /
6 26X,19HTELEX 40630 ADINA S,36X,14HTELEX 951-772 ,
7 13HADINA US WTWN ////37X,
8 50HADINA ENGINEERING AB AND ADINA ENGINEERING INC ,
9 10H MAKE NO/,37X,
A 50HWARRANTIES WITH RESPECT TO THE PROGRAM AND ITS DOC ,
B 10HUMENTATION /////)
2004 FORMAT (54H END-OF-FILE ENCOUNTERED IN READING THE DATA FILE ,
1 /,13H *** STOP *** )
2005 FORMAT (40H M A S T E R C O N T R O L C A R D S)
2010 FORMAT(///,1X,12HCARD NUMBER ,I1)
2012 FORMAT (///,1X,12HCARD NUMBER ,I1,A1,3X,//
A56H (THIS CARD IS NOT INPUT, PARAMETERS ARE SET BY DEFAULT) )
2015 FORMAT(/,5X,
255HNUMBER OF NODAL POINTS . . . . . . . . . . (NUMNP) =,I5//5X,
355HMASTER X-TRANSLATION CODE . . . . . . . . . (IDOF(1)) =,I5//5X,
355HMASTER Y-TRANSLATION CODE . . . . . . . . . (IDOF(2)) =,I5//5X,
355HMASTER Z-TRANSLATION CODE . . . . . . . . . (IDOF(3)) =,I5//5X,
355HMASTER X-ROTATION CODE . . . . . . . . . (IDOF(4)) =,I5//5X,
355HMASTER Y-ROTATION CODE . . . . . . . . . (IDOF(5)) =,I5//5X,
355HMASTER Z-ROTATION CODE . . . . . . . . . (IDOF(6)) =,I5//5X,
A55HFLAG FOR MASTER OVALIZATION CODES . . . . . (IDPIPE) =,I5 /5X,
B55H EQ.0, ALL OVALIZATION CODES INACTIVE /5X,
C55H EQ.1, IN-PLANE OVALIZATION CODES ACTIVE /5X,
D55H EQ.2, OUT-OF-PLANE OVALIZATION CODES ACTIVE /5X,
E55H EQ.3, ALL OVALIZATION CODES ACTIVE )
2020 FORMAT (/5X,
455HNUMBER OF LINEAR ELEMENT GROUPS . . . . . . (NEGL) =,I5//5X,
555HNUMBER OF NONLINEAR ELEMENT GROUPS . . . . (NEGNL) =,I5//5X,
D55HSOLUTION MODE . . . . . . . . . . . . . . . (MODEX) =,I5 /5X,
E55H EQ.0, DATA CHECK /5X,
F55H EQ.1, EXECUTION /5X,
G55H EQ.2, RESTART //4X,
A56H NUMBER OF TIME STEPS . . . . . . . . . . . .(NSTE) = ,
A I5//4X,
B56H TIME STEP INCREMENT . . . . . . . . . . . .(DT) = ,
C E11.4//4X,
D56H TIME AT SOLUTION START . . . . . . . . . . .(TSTART) =,
E E11.4 )
2021 FORMAT (/5X,
A55HFLAG FOR PRINTING INPUT DATA IN , /5X,
B55H GENERATED FORM . . . . . . . . . . . . . (IPDATA) =,I5 /5X,
C55H EQ.0, DETAILED PRINTING OF ALL GENERATED , /5X,
C55H INPUT DATA , /5X,
D55H EQ.1, SAME AS EQ.0 EXCEPT NO PRINTING OF , /5X,
D55H EQUATION NUMBERS (ID ARRAY) , /5X,
F55H EQ.2, SAME AS EQ.0 EXCEPT NO PRINTING OF , /5X,
E55H GENERATED NODAL POINT DATA , /5X,
H55H EQ.3, COMBINATION OF EQ.1 AND EQ.2 , /5X,
I55H GT.3, NO PRINTING OF GENERATED INPUT DATA )
2025 FORMAT (/5X,
A55HNUMBER OF INDEPENDENT SUBSTRUCTURES . . . . (NSUBST) =,I5//5X,
B55HNUMBER OF SKEW (A,B,C) REFERENCE SYSTEMS . (NSKEWS) =,I5//5X,
B55HNUMBER OF USER-SPECIFIED DIRECTOR VECTORS . (NMIDSS) =,I5//5X,
P55HNUMBER OF CONTACT SURFACE GROUPS. . . . . . (NSGNL) =,I5/)
2027 FORMAT (/5X,
A55HRESTART SAVE INTERVAL . . . . . . . . . . . (IRINT) =,I5 /5X,
B55H EQ.0, DEFAULT SET TO 99999 /5X,
C55H LT.0, INFORMATION OF PREVIOUS STEPS SAVED /5X,
D55H GT.0, INFORMATION OF PREVIOUS STEPS OVERWRITTEN //5X,
U55HTEMPERATURE TAPE FLAG . . . . . . . . . . . (ITP56) =,I5 /5X,
V55H EQ. 0, TEMPERATURE INPUT NOT REQUIRED /5X,
W55H EQ.-1, TEMPERATURE TAPE USED AFTER PREPROCESSING ,/,5X,
X55H EQ. 1, TEMPERATURE TAPE USED WITH NO PREPROCESSING ,/,5X,
Y55H EQ. 2, TEMPERATURES SPECIFIED VIA INPUT DATA CARDS )
2028 FORMAT (/5X,
A 55HPREPROCESSOR INPUT CONTROL PARAMETER . . . (ITP59) =,I5/4X,
B 55H EQ.0, NO PREPROCESSOR TAPE USED /4X,
C 55H EQ.1, NODAL POINT DATA READ FROM UNIT 59 , /4X,
D 55H EQ.2, NODAL POINT DATA AND EQUATION NUMBERS , /4X,
E 55H (ID ARRAY) READ FROM UNIT 59 , /4X,
D 55H EQ.3, ELEMENT DATA READ FROM UNIT 59 , /4X,
E 55H EQ.4, COMBINATION OF EQ.1 AND EQ.3 , /4X,
F 55H EQ.5, COMBINATION OF EQ.2 AND EQ.3 , //5X,
R 55HPORTHOLE PARAMETER . . . . . . . . . . . . (ITP60) =,I5/4X,
S 55H EQ.0, PORTHOLE NOT WRITTEN /4X,
T 55H EQ.1, BINARY PORTHOLE WRITTEN /4X,
U 55H EQ.2, FORMATTED PORTHOLE WRITTEN )
2029 FORMAT(/,5X,
A 55HCONTROL PARAMETER FOR READING INITIAL , /5X,
B 55H IMPERFECTION DATA FROM UNIT 9 . . . . . (IINIMP) =,I5/5X,
C 55H EQ.0, NO READING /5X,
D 55H EQ.1, INITIAL IMPERFECTION DATA IS READ //5X,
U 55HFLAG FOR SAVING LINEAR FACTORIZED STIFFNESS , /5X,
V 55H FOR RESTART . . . . . . . . . . . . . . (ISVFK) =,I5/5X,
W 55H EQ.0, NO SAVING /5X,
W 55H EQ.1, MAIN STRUCTURE STIFFNESS SAVED , /5X,
W 55H IN LINEAR ANALYSIS , /5X,
X 55H SUBSTRUCTURE STIFFNESSES SAVED IN ALL ANALYSES )
2026 FORMAT (/,5X,
A 55HINDICATOR FOR THE PREPROCESSOR ADINA-IN . . (IADIN) =,I5/5X,
B 55H EQ.0, ADINA-IN NOT USED , /5X,
C 55H EQ.1, INPUT DATA GENERATED USING ADINA-IN , //5X,
D 55HBLANK COMMON STORAGE . . . . . . . . . . . (MTOTK) =,
E I5//5X,
F 55HDIRECT ACCESS FILES RECORD LENGTH IN WORDS (LREC) =,I5 )
2030 FORMAT (/5X,
155HNUMBER OF CONCENTRATED LOAD CARDS . . . . . (NLOAD) =,I5//5X,
255HNUMBER OF 2/D PRESSURE LOAD SETS. . . . . . (NPR2) =,I5//5X,
355HNUMBER OF 3/D PRESSURE LOAD SETS. . . . . . (NPR3) =,I5//5X,
455HNUMBER OF BEAM DISTRIBUTED LOAD SETS. . . . (NPBM) =,I5//5X,
H55HNUMBER OF ISO/BEAM AND PIPE , /5X,
H55H DISTRIBUTED LOAD SETS . . . . . . . . . (NPISB) =,I5//5X,
+55HNUMBER OF PLATE DISTRIBUTED LOAD SETS . . . (NPPL) =,I5//5X,
+55HNUMBER OF SHELL DISTRIBUTED LOAD SETS . . . (NPSH) =,I5//5X,
655HMASS PROPORTIONAL LOADING CODE. . . . . . . (IDGRAV) =,I5 /5X,
755H EQ.0, NO LOADING /5X,
855H EQ.1, LUMPED MASS LOADING /5X,
A55H EQ,2, CONSISTENT MASS LOADING //5X,
955HNUMBER OF PRESCRIBED DISPLACEMENTS. . . . . (NPDIS) =,I5//5X,
A55HNUMBER OF NODAL TEMPERATURE CARDS . . . . . (NTEMP) =,I5//5X,
B55HNUMBER OF DISPLACEMENT CONSTRAINT EQUATIONS (NCES) =,I5//5X,
C55HMAX NUMBER OF INDEPENDENT DISPLACEMENTS /5X,
D55H IN ANY CONSTRAINT EQUATION . . . . . . . (NIDM) =,I5//5X,
E55HNUMBER OF RIGID LINKS . . . . . . . . . . . (NRLINK) =,I5 )
2031 FORMAT(/,5X,
R55HNUMBER OF MID-SURFACE NODAL /5X,
S55H TEMPERATURE GRADIENT CARDS . . . . . . . (NTEGRA) =,I5 /5X,
T55H (ONLY APPLICABLE TO SHELL ELEMENTS) //5X,
X55HCENTRIFUGAL LOADING CODE . . . . . . . . . (IDCFGL) =,I5 /5X,
Y55H EQ.0, NO CENTRIFUGAL LOADING /5X,
Z55H EQ.1, LUMPED MASS CENTRIFUGAL LOADING /5X,
A55H EQ.2, CONSISTENT MASS CENTRIFUGAL LOADING )
2032 FORMAT (/,5X,
1 55HREACTION PRINT-OUT CODE . . . . . . . . . . (IREFOR) =,I5/5X,
1 33H EQ.0, NO PRINTING OF REACTIONS /5X,
1 55H EQ.1, PRINT REACTIONS )
2033 FORMAT (14X,34HTHE REACTION COMPONENTS OUTPUT ARE )
2034 FORMAT (14X,A)
2037 FORMAT (/,5X,
A 55HUSER-SUPPLIED LOADING CODE . . . . . . . . (IUSERL) =,I5/5X,
B 40H EQ.0, NO USER-SUPPLIED LOADS ,/5X,
C 50H EQ.1, USER-SUPPLIED LOADS PRESENT, ,/,5X,
D 50H LOAD AT A NODE DEPENDS ONLY ON ,/,5X,
E 50H NODAL VARIABLES AT THE SAME NODE ,/,5X,
F 50H EQ.2, USER-SUPPLIED LOADS PRESENT, ,/,5X,
G 50H LOAD AT A NODE DEPENDS ON NODAL ,/,5X,
H 50H VARIABLES AT OTHER NODES )
C12 ADDED BY ZHOUYX JUNE 25TH 2000************************************
2038 FORMAT (/,5X,
A 55HUSER-SUPPLIED LOADING CODE . . . . . . . . (IEARTHQ) =,I5/5X,
B 40H EQ.0, NO MASS PROPOTIONAL LOAD ,/5X,
C 50H EQ.1, ONLY GRAVITY ,/,5X,
F 50H EQ.2, BOTH GRAVITY AND EARTHQUAKE LOAD ,/,5X,/)
C12 ADDED BY ZHOUYX JUNE 25TH 2000************************************
2035 FORMAT (/5X,
155HMASS MATRIX CODE . . . . . . . . . . . . . (IMASS) =,I5 /5X,
255H EQ.0, NO MASS EFFECTS /5X,
355H EQ.1, LUMPED MASS /5X,
455H EQ.2, CONSISTENT MASS //5X,
555HDAMPING MATRIX CODE . . . . . . . . . . . . (IDAMP) =,I5 /5X,
655H EQ.0, NO DAMPING /5X,
A55H EQ.1, LUMPED DAMPING /5X,
C55H EQ.2, RAYLEIGH DAMPING AND/OR COUPLED /5X,
D55H DAMPING FROM GENERAL ELEMENTS /5X,
E55H (CONSISTENT DAMPING) //5X,
C55HCONCENTRATED NODAL MASSES CODE. . . . . . . (IMASSN) =,I5 /5X,
955H EQ.0, NO CONCENTRATED NODAL MASSES /5X,
A55H EQ.1, CONCENTRATED NODAL MASSES PRESENT )
2036 FORMAT (/5X,
A55HCONCENTRATED NODAL DAMPERS CODE . . . . . . (IDAMPN) =,I5 /5X,
B55H EQ.0, NO CONCENTRATED NODAL DAMPERS /5X,
C55H EQ.1, CONCENTRATED DAMPERS PRESENT //5X,
B55HFIRST RAYLEIGH DAMPING FACTOR . . . . . . . (RDVAR(1))=,E11.4,
C//5X,
D55HSECOND RAYLEIGH DAMPING FACTOR . . . . . . (RDVAR(2))=,E11.4,
E//)
2040 FORMAT (/5X,
H55HFREQUENCIES SOLUTION CODE . . . . . . . . . . .(IEIG) =,I5 /5X,
I55H EQ.0, NO FREQUENCIES SOLUTION /5X,
J55H EQ.1, CALCULATE LOWEST FREQUENCIES ,/,5X,
K55H AND MODE SHAPES ,/,5X,
L55H EQ.2, CALCULATE FREQUENCIES AND MODE ,/,5X,
M55H SHAPES WITHIN AN INTERVAL ,/,5X,
N55H EQ.3, CALCULATE LINEARIZED BUCKLING ,/,5X,
O55H LOADS AND MODE SHAPES ,//,5X,
155HFLAG INDICATING FREQUENCY SOLUTION TYPE. . . (IESTYP) =,I5 /5X,
255H EQ.0, DETERMINANT SEARCH METHOD /5X,
355H EQ.1, BATHE S SUBSPACE ITERATION METHOD //5X,
F55HNUMBER OF EIGENPAIRS TO BE CALCULATED . . . . .(NEIG) =,I5 /5X,
555H EQ.0, DEFAULT SET TO 1 IF IEIG.GT.0 )
2042 FORMAT (/5X,
A55HNUMBER OF VECTORS USED FOR SUBSPACE ITERATION . .(NQ) =,I5 /5X,
V55H EQ.0, SET TO MIN( 2*NEIG , NEIG+8 ) ,/,5X,
V55H IF IEIG.EQ.1 ,/,5X,
V55H SET TO 16 IF IEIG.EQ.2 ,/ ,5X,
W55H SET TO NEIG+8 IF IEIG.EQ.3 ,//,5X,
X55H (IF IEIG.EQ.3, THEN NQ MUST BE GE.NEIG+8, ,/ ,5X,
Y55H PROGRAM RESETS NQ IF NECESSARY) ,//,5X,
155HNUMBER OF MODE SHAPES TO BE PRINTED. . . . . .(NMODE) =,I5//5X,
255HINTERMEDIATE PRINT-OUT CONTROL PARAMETER. . . .(IFPR) =,I5 /5X,
355H EQ.0, NO PRINTING /5X,
455H EQ.1, PRINT //)
2045 FORMAT (/5X,
A55HFLAG FOR TIME-HISTORY SOLUTION METHOD . . .(IMODS) =,I5 /5X,
B55H EQ.0, STATIC ANALYSIS OR DIRECT TIME INTEGRATION /5X,
C55H EQ.1, MODE SUPERPOSITION ,/,5X,
D55H EQ.2, INITIAL CALCULATIONS FOR RESPONSE ,/,5X,
E55H SPECTRUM ANALYSIS ,//,5X,
155HTIME INTEGRATION CODE . . . . . . . . . . . (IOPE) =,I5 /5X,
255H EQ.1, WILSON S THETA METHOD ,/,5X,
355H EQ.2, NEWMARK S METHOD ,/,5X,
455H EQ.3, CENTRAL DIFFERENCE METHOD ,/,5X)
2050 FORMAT (5X,
155HINTEGRATION PARAMETER . . . . . . . . . . . (THETA) =,F5.2)
2055 FORMAT (5X,
155HINTEGRATION PARAMETERS . . . . . . . . . . (DELTA) =,F5.2/
1 5X,
255H (ALPHA) =,F5.2)
2057 FORMAT (/5X,
A55HNUMBER OF MODES TO BE USED FOR MODE SUPERPOSITION ,/,5X,
B55H OR RESPONSE SPECTRUM CALCULATIONS . . . (NMODES) =,I5//5X,
355HFLAG FOR INCLUDING MODAL DAMPING EFFECTS . (IMDAMP) =,I5/ 5X,
455H EQ.0, NO MODAL DAMPING EFFECTS /5X,
540H EQ.1, MODAL DAMPING FACTORS ARE INPUT,//,
65X,37HFLAG FOR CALCULATING TRUNCATION ERROR,/,
75X,55HIN MODE SUPERPOSITION ANALYSIS . . . . . . (IERMSU) =,I5,/
8,5X,29H EQ.0, NO ERROR CALCULATION,/,
9 5X,49H GT.0, CALCULATE ERROR AT IERMSU STEPS INTERVAL,//,5X,
A55HSTATIC CORRECTIONS FOR ,/,5X,
B55H RESPONSE SPECTRUM CALCULATIONS . . . . .(IRSPC) =,I5 /5X,
C55H EQ.0, NO CORRECTIONS ,/,5X,
D55H EQ.1, CORRECTIONS USED )
2060 FORMAT (/,4X,
A 55H NO. OF BLOCKS OF EFFECTIVE STIFFNESS /4X,
B 56H REFORMATION TIME STEPS . . . . . . . . . (NSREFB) =,I5/
B 4X,
C 55H EQ.0, NO STIFFNESS REFORMATION /4X,
C 55H (UNLESS METHOD.EQ.-3,3 OR A) //4X,
D 55H NO. OF BLOCKS OF EQUILIBRIUM /4X,
E 56H ITERATION TIME STEPS . . . . . . . . . . (NEQITB) =,I5/
E 4X,
F 55H EQ.0, NO EQUILIBRIUM ITERATION /4X,
C 55H (UNLESS METHOD.EQ.-3,3 OR A) //5X,
G 55HEQUILIBRIUM ITERATION METHOD . . . . . . . (METHOD) =,
H 3X,A1,A1,/,5X,
H 55H EQ.-1, MODIFIED NEWTON (NO LINE SEARCH) /5X,
I 55H EQ. 1, MODIFIED NEWTON (WITH LINE SEARCH) /5X,
J 55H EQ. 2, BFGS METHOD (WITH LINE SEARCH) /5X,
K 55H EQ.-3, FULL NEWTON (NO LINE SEARCH) /5X,
L 55H EQ. 3, FULL NEWTON (WITH LINE SEARCH) /5X,
M 55H EQ. A, AUTOMATIC STEP INCREMENTATION )
2061 FORMAT (/5X,
A 55HFLAG FOR PRINTING OF INTERMEDIATE /5X,
B 55H EQUILIBRIUM ITERATION VARIABLES . . . . (IPEQIT) =,I5/5X,
C 55H EQ.0, NO PRINTING , /5X,
D 55H EQ.1, PRINT , //5X,
A 55HFLAG FOR CHOICE OF CONVERGENCE CRITERIA . . (ITOL) =,I5/5X,
B 55H EQ.0, USE ENERGY CONVERGENCE CRITERION , /5X,
C 55H EQ.1, USE ENERGY, FORCE AND MOMENT , /5X,
D 55H CONVERGENCE CRITERIA , /5X,
E 55H EQ.2, USE ENERGY, DISPLACEMENT AND ROTATION , /5X,
F 55H CONVERGENCE CRITERIA , /5X,
G 55H EQ.3, USE FORCE AND MOMENT , /5X,
G 55H CONVERGENCE CRITERIA , /5X,
H 55H EQ.4, USE DISPLACEMENT AND ROTATION , /5X,
I 55H CONVERGENCE CRITERIA , //5X,
A 55HMAXIMUM NUMBER OF EQUILIBRIUM /5X,
B 55H ITERATIONS PERMITTED . . . . . . . . . . (ITEMAX) =,
B I5//5X,
E 55HENERGY CONVERGENCE TOLERANCE . . . . . . . . (ETOL) =,
1 E11.4/)
2062 FORMAT(5X,
F 55HFORCE/DISP. CONVERGENCE TOLERANCE . . . (RTOL/DTOL) =,
1 E11.4//5X,
G 55HCONTACT FORCE CONVERGENCE TOLERANCE . . . . (RCTOL) =,
1 E11.4//5X,
H 55HLINE SEARCH CONVERGENCE TOLERANCE . . . . . (STOL) =,
1 E11.4//5X,
I 55HREFERENCE FORCE/DISP. FOR CONVERGENCE (RNORM/DNORM) =,
1 E11.4//5X,
J 55HREFERENCE MOMENT/ROTN. FOR CONVERGENCE (RMNORM/DMNORM)=,
1 E11.4//)
2063 FORMAT (/44H CARD NUMBER 7 CONTINUED - METHOD A IS USED //5X,
A55HNODE AT WHICH DISPLACEMENT FOR THE FIRST STEP , /5X,
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -