📄 a02a.for
字号:
B55H IS PRESCRIBED . . . . . . . . . . . . . (NODPD) =,I5//5X,
C55HDEGREE OF FREEDOM OF PRESCRIBED DISPLACEMENT , /5X,
D55H FOR THE FIRST STEP . . . . . . . . . . . (IDPD) =,I5 /5X,
E55H EQ.1, X-TRANSLATION /5X,
F55H EQ.2, Y-TRANSLATION /5X,
G55H EQ.3, Z-TRANSLATION /5X,
H55H EQ.4, X-ROTATION /5X,
I55H EQ.5, Y-ROTATION /5X,
J55H EQ.6, Z-ROTATION //5X,
K55HMAGNITUDE OF PRESCRIBED DISPLACEMENT /5X,
L55H FOR THE FIRST STEP . . . . . . . . . . . (DISPP) =,
M E14.6/)
2064 FORMAT (/5X,
A55HPARAMETER USED TO LIMIT THE MAXIMUM INCREMENTAL /5X,
B55H DISPLACEMENT IN A SOLUTION STEP . . . . (ALFA) =,
C E14.6//5X,
D55HMAXIMUM DISPLACEMENT ALLOWED /5X,
E55H IN SOLUTION . . . . . . . . . . . . . . (DISPMX) =,
F E14.6//5X,
G55HFLAG FOR SOLUTION MODE AT FIRST , /5X,
H55H CRITICAL POINT . . . . . . . . . . . . . (ICOMA) =,I5 /5X,
I55H EQ.0, SOLUTION STOPS /5X,
J55H EQ.1, SOLUTION CONTINUES //5X,
K55HFLAG FOR PRINTING OF , /5X,
L55H REFERENCE LOAD VECTOR . . . . . . . . . (IPRFLD) =,I5 /5X,
M55H EQ.0, NO PRINTING /5X,
N55H EQ.1, PRINT //)
2065 FORMAT (/5X,
155HMASTER CONTROL PARAMETER FOR PRINT-OUT . . . (IOUTPT) =,I5/5X,
142H EQ.0, PRINT RESPONSES AT ALL TIME STEPS /5X,
240H AND AT ALL NODES /5X,
343H EQ.1, BLOCKS OF PRINT-OUT TIME STEPS AND /5X,
440H NODAL POINTS ARE INPUT LATER //5X,
555HNO. OF BLOCKS OF TIME STEPS FOR NODAL AND ELEMENT /5X,
655H ASSOCIATED QUANTITIES PRINT-OUT . . . . . (NPRIB) =,I5//5X,
B55HNUMBER OF BLOCKS OF NODAL PRINTOUT . . . . . . (NPB) =,I5//5X,
C55HDISPLACEMENT PRINTOUT CODE . . . . . . . . . . (IDC) =,I5 /5X,
D55H EQ.0, NO PRINTING OF DISPLACEMENTS /5X,
E55H EQ.1, PRINT DISPLACEMENTS //5X,
F55HVELOCITY PRINTOUT CODE . . . . . . . . . . . . (IVC) =,I5 /5X,
G55H EQ.0, NO PRINTING OF VELOCITIES /5X,
H55H EQ.1, PRINT VELOCITIES //5X,
I55HACCELERATION PRINTOUT CODE . . . . . . . . . . (IAC) =,I5 /5X,
J55H EQ.0, NO PRINTING OF ACCELERATIONS /5X,
K55H EQ.1, PRINT ACCELERATIONS )
2066 FORMAT (/5X,
155HFLAG FOR PRINTING STORAGE INFORMATION. . . . (ISTPRT) =,I5 /5X,
255H EQ.0, DO NOT PRINT /5X,
355H EQ.1, PRINT )
2100 FORMAT (/,4X,
B 55H FLAG FOR SAVING INPUT DATA ON TAPE . . . . (NPUTSV) =,I5/4X,
C 55H EQ.0, WRITE ONLY MAIN HEADER /4X,
D 55H EQ.1, WRITE ALL INPUT DATA ON PORTHOLE //4X,
E 55H NO. OF BLOCKS OF TIME STEPS FOR SAVING /4X,
F 55H NODAL RESPONSES ON TAPE . . . . . . . . (NODSVB) =,I5/4X,
G 55H EQ.0, NO ACTION //4X,
H 55H NO. OF BLOCKS OF TIME STEPS FOR SAVING /4X,
I 55H ELEMENT RESPONSES ON TAPE . . . . . . . (LEMSVB) =,I5/4X,
J 55H EQ.0, NO ACTION /)
2105 FORMAT (4X,
A 55H LOGICAL UNIT FOR BINARY PORTHOLE FILE . . (LUPORT) =,
A I5//4X,
A 55H LOGICAL UNIT FOR FORMATTED PORTHOLE FILE . (IFPORT) =,
A I5//4X,
A 55H DISPLACEMENT SAVE CODE . . . . . . . . . . (JDC) =,I5/4X,
B 55H EQ.0, NO SAVING OF DISPLACEMENTS /4X,
C 55H EQ.1, SAVE DISPLACEMENTS ON PORTHOLE //4X,
D 55H VELOCITY SAVE CODE . . . . . . . . . . . . (JVC) =,I5/4X,
E 55H EQ.0, NO SAVING OF VELOCITIES /4X,
F 55H EQ.1, SAVE VELOCITIES ON PORTHOLE //4X,
G 55H ACCELERATION SAVE CODE . . . . . . . . . . (JAC) =,I5/4X,
H 55H EQ.0, NO SAVING OF ACCELERATIONS /4X,
I 55H EQ.1, SAVE ACCELERATIONS ON PORTHOLE //4X,
J 55H TEMPERATURE SAVE CODE . . . . . . . . . . (JTC) =,I5/4X,
K 55H EQ.0, NO SAVING OF TEMPERATURES /4X,
L 55H EQ.1, SAVE TEMPERATURES ON PORTHOLE //)
2110 FORMAT (/////40X,14H * THIS IS A ,A3,A6,2X,A5,A3,11HANALYSIS * )
2115 FORMAT (1H1,42H S O L U T I O N D E T A I L C A R D S )
2120 FORMAT(//5X,76HBLOCK DEFINITION CARDS FOR EFFECTIVE STIFFNESS MATR
1IX REFORMATION TIME STEPS //5X,
296H( NOT APPLICABLE FOR LINEAR ANALYSIS, EXPLICIT TIME INTEGRATION
3 OR MODE SUPERPOSITION ANALYSIS ) )
2130 FORMAT (/,4X,
A 7H BLOCK ,I2 //7X,
B 46H FIRST STEP OF THIS BLOCK . . . (ISREFB(1,,I2,3H))=,I5/7X,
C 46H LAST STEP OF THIS BLOCK . . . (ISREFB(2,,I2,3H))=,I5/7X,
D 46H INCREMENT IN TIME STEP . . . . (ISREFB(3,,I2,3H))=,I5/)
2140 FORMAT(//5X,59HBLOCK DEFINITION CARDS FOR EQUILIBRIUM ITERATION TI
1ME STEPS //5X,
267H( NOT APPLICABLE FOR LINEAR ANALYSIS OR EXPLICIT TIME INTEGRATI
3ON ) )
2150 FORMAT (/,4X,
A 7H BLOCK ,I2 //7X,
B 46H FIRST STEP OF THIS BLOCK . . . (IEQITB(1,,I2,3H))=,I5/7X,
C 46H LAST STEP OF THIS BLOCK . . . (IEQITB(2,,I2,3H))=,I5/7X,
D 46H INCREMENT IN TIME STEP . . . . (IEQITB(3,,I2,3H))=,I5/)
2160 FORMAT(//5X,47HBLOCK DEFINITION CARDS FOR PRINT-OUT TIME STEPS ,
1 //5X,
159H( NOT APPLICABLE, IF IOUTPT.EQ.0 ON MASTER CONTROL CARD 8 ) )
2170 FORMAT (/,4X,
A 7H BLOCK ,I2 //7X,
B 46H FIRST STEP OF THIS BLOCK . . . ( IPRIB(1,,I2,3H))=,I5/7X,
C 46H LAST STEP OF THIS BLOCK . . . ( IPRIB(2,,I2,3H))=,I5/7X,
D 46H INCREMENT IN TIME STEP . . . . ( IPRIB(3,,I2,3H))=,I5/)
2180 FORMAT(//5X,49HBLOCK DEFINITION CARDS FOR PRINT-OUT NODAL POINTS
1 ,//5X,
1 59H( NOT APPLICABLE, IF IOUTPT.EQ.0 ON MASTER CONTROL CARD 8 ))
2190 FORMAT (/,4X,
A 7H BLOCK ,I2 //7X,
B 46H FIRST NODE OF THIS BLOCK . . . (IPNODE(1,,I2,3H))=,I5/7X,
C 46H LAST NODE OF THIS BLOCK . . . (IPNODE(2,,I2,3H))=,I5/7X,
D 46H INCREMENT IN NODE NUMBER . . . (IPNODE(3,,I2,3H))=,I5/)
2200 FORMAT(//5X,63HBLOCK DEFINITION CARDS OF TIME STEPS FOR SAVING NOD
1AL RESPONSES )
2210 FORMAT (/,4X,
A 7H BLOCK ,I2 //7X,
B 46H FIRST STEP OF THIS BLOCK . . . ( INODB(1,,I2,3H))=,I5/7X,
C 46H LAST STEP OF THIS BLOCK . . . ( INODB(2,,I2,3H))=,I5/7X,
D 46H INCREMENT IN TIME STEP . . . . ( INODB(3,,I2,3H))=,I5/)
2220 FORMAT(//5X,65HBLOCK DEFINITION CARDS OF TIME STEPS FOR SAVING ELE
1MENT RESPONSES )
2230 FORMAT (/,4X,
A 7H BLOCK ,I2 //7X,
B 46H FIRST STEP OF THIS BLOCK . . . ( IELMB(1,,I2,3H))=,I5/7X,
C 46H LAST STEP OF THIS BLOCK . . . ( IELMB(2,,I2,3H))=,I5/7X,
D 46H INCREMENT IN TIME STEP . . . . ( IELMB(3,,I2,3H))=,I5/)
2250 FORMAT (1H1,35HT I M E F U N C T I O N D A T A //4X,
151H NUMBER OF TIME FUNCTIONS (NLCUR) =,I5//4X,
251H MAX NUMBER OF POINTS IN TIME FUNCTIONS (NPTM) =,I5/// )
2301 FORMAT (///30H *** I N P U T E R R O R ***,/,
1 30H DETECTED IN SUBROUTINE ADINI //)
2391 FORMAT (35H INPUT FOR METHOD IS OUT OF RANGE ,/,
1 9H METHOD =,3X,A1,A1,/,17H *** S T O P *** )
2392 FORMAT (35H INPUT FOR NODPD IS OUT OF RANGE ,/,
1 9H NODPD =,I5,/,17H *** S T O P *** )
2393 FORMAT (35H INPUT FOR IDPD IS OUT OF RANGE ,/,
1 9H IDPD =,I5,/,17H *** S T O P *** )
2394 FORMAT (35H INPUT FOR DISPMX IS OUT OF RANGE ,/,
1 9H DISPMX =,E13.5,/,17H *** S T O P *** )
2701 FORMAT (//52H * * * N O T E * * * ,
1 //52H UNIT 9 CREATED IN A PREVIOUS ANALYSIS AND STORING ,
2 /52H THE EIGENVECTORS/EIGENVALUES IS REUSED. ,
3 /52H THE ID-ARRAY ON UNIT 9 STORING THE EQUATION NUMBERS,
4 /48H IS ALSO REUSED. ,//)
2801 FORMAT (//52H ** STORAGE CHECK FOR TEMPERATUTE INTERPOLATION )
2802 FORMAT (//52H ** STORAGE CHECK FOR TIME FUNCTION INPUT )
2803 FORMAT (//52H ** STORAGE CHECK FOR NODAL POINT DATA INPUT )
2804 FORMAT (//52H ** STORAGE CHECK FOR NODAL MASSES/DAMPERS AND INITI,
1 52HAL CONDITIONS INPUT )
2990 FORMAT (1H1,80H ** STOP ** ERROR IN INPUT OF BLOCK DEFINITIONS OF
1 NODAL QUANTITIES PRINT-OUT )
3000 FORMAT (1H1,21H ** STOP ** ERROR IN ,A8,2X,13H BLOCK INPUT./
1 14H FIRST STEP OF,I5,34HTH BLOCK IS LESS THAN LAST STEP OF,I5,
1 9HTH BLOCK. ///)
3001 FORMAT(1H1,20H ** STOP ** ERROR IN,A8,2X,44HBLOCK INPUT.FINAL STEP
1 OF LAST BLOCK INPUT =,I5,18H, LESS THAN NSTE =,I5)
3004 FORMAT (1H1,21H ** STOP ** ERROR IN ,A8,2X,13H BLOCK INPUT./
1 14H FIRST STEP OF,I5,36HTH BLOCK IS LARGER THAN LAST STEP OF,I5,
1 9HTH BLOCK. ///)
3002 FORMAT (///46H ''STOP - IMASS MUST BE GT.0 IF CONCENTRATED
1 / 37H MASSES AND-OR DAMPERS ARE SPECIFIED )
3003 FORMAT (///41H **STOP - IEIG.GT.2 NOT PERMITTED IN THIS,/,
+ 19HVERSION OF ADINA'' )
3005 FORMAT (///18H**STOP - IEIG.EQ.2,/,
1 31HONLY VALID IN STATIC ANALYSIS**)
3006 FORMAT (///20H *** INPUT ERROR ***,/,
1 32H SUBSTRUCTURES CANNOT BE PRESENT,
2 33H IN A MODE SUPERPOSITION ANALYSIS,//,
3 13H *** STOP ***)
3007 FORMAT (54H SUBSTRUCTURES ARE NOT ALLOWED WHEN IMASS.EQ.2 ,
1 /,13H *** STOP *** )
3008 FORMAT (///,1H ,100H **STOP** IDAMP.GE.2 NOT PERMITTED IF CENTRAL
1DIFFERENCE METHOD IS TO BE USED FOR TIME INTEGRATION )
3009 FORMAT (///,1H ,72H **STOP** SUBSTRUCTURING NOT PERMITTED WHEN CON
1SISTENT DAMPING IS USED )
3010 FORMAT (///,1H1,100H **STOP** IEIG.GT.0 NOT PERMITTED IF CENTRAL D
1IFFERENCE METHOD IS TO BE USED FOR TIME INTEGRATION )
3011 FORMAT (///20H *** INPUT ERROR ***,/,
1 30H AUTOMATIC STEP INCREMENTATION,/,
2 28H CANNOT BE USED WHEN THERMAL,/,
3 34H EFFECTS ARE INCLUDED (ITP96.GT.0),//,
4 13H *** STOP ***)
3012 FORMAT (///,1H1,60H **STOP** IMASS MUST BE EQ. 1 FOR CENTRAL DIFFE
1RENCE METHOD )
3013 FORMAT (///28H *** I N P U T E R R O R -/
1 29H DETECTED BY SUBROUTINE ADINI//
2 5X,9H NSUBST =,I5/5X,7H IEIG =,I5//
3 35H FREQUENCY ANALYSIS CAN NOT BE DONE/
4 28H WHEN SUBSTRUCTURES ARE USED//,12H *** S T O P)
3014 FORMAT (///28H *** I N P U T E R R O R -/
1 29H DETECTED BY SUBROUTINE ADINI//
2 5X,8H ITP96 =,I5/5X,8H NTEMP =,I5//
3 37H WHEN ITP96.LE.1, NTEMP MUST BE ZERO.//12H *** S T O P)
3015 FORMAT (///28H *** I N P U T E R R O R *,/,
1 5X,29H DETECTED BY SUBROUTINE ADINI,//,
2 5X,29H NSUBST.GT.0 AND IINIMP .EQ.1,/,
3 5X,17H ARE INCOMPATIBLE)
3018 FORMAT (///,28H *** I N P U T E R R O R ,
A /,59H DAMPING CAN ONLY BE INCLUDED IN A DYNAMIC ANALYSIS ,
B /,59H (I.E., IDAMP.GT.0 IS ONLY ALLOWED IF IMASS.GT.0) ,
C /,13H *** S T O P )
3019 FORMAT (///,28H *** I N P U T E R R O R ,
A /,59H IDAMP IS OUT OF RANGE. IDAMP MUST BE GE.0 AND LE.2 ,
B /,13H *** S T O P )
3021 FORMAT(///,1H1,4X,
1 49H*STOP* SUBSTRUCTURES CANNOT BE USED WHEN GRAVITY ,/,4X,
1 49H LOADING OR CENTRIFUGAL LOADING IS PRESENT ,/,4X,
1 25H (IN THIS VERSION) )
3022 FORMAT(///,1H1,
1 4X,46H CENTRAL DIFFERENCE METHOD CANNOT BE USED WITH,/,
1 4X,36H CONSISTENT MASS GRAVITY LOADING OR ,/,
1 4X,36H CONSISTENT MASS CENTRIFUGAL LOADING ,/,
1 11X,16HINPUT IDGRAV =,I5,/,
1 11X,16HINPUT IDCFGL =,I5,/ )
3023 FORMAT(///,1H1,4X,
1 31HMASS MATRIX OPTION USED (IMASS=,I2,8H) IS NOT ,/,4X,
1 44HCOMPATIBLE WITH GRAVITY LOAD OPTION (IDGRAV=,I2,2H).,/ )
3024 FORMAT(///,1H1,4X,
1 31HMASS MATRIX OPTION USED (IMASS=,I2,8H) IS NOT ,/,4X,
1 48HCOMPATIBLE WITH CENTRIFUGAL LOAD OPTION (IDCFGL=,I2,2H).,/ )
3090 FORMAT (///24H I N P U T E R R O R- /
1 29H DETECTED BY SUBROUTINE ADINI /
2 45H NEGL, NEGNL, NSGNL AND NSUBST ARE ALL ZERO ,/
3 27H P R O G R A M S T O P S . /)
3030 FORMAT(1H1,101H ** STOP **, SUBSTRUCTURES CANNOT BE USED IN A DYNA
1MIC ANALYSIS, IF CENTRAL DIFFERENCE METHOD IS USED )
3040 FORMAT (1H1,78H ** STOP **, DISPLACEMENTS CANNOT BE PRESCRIBED IN
1MODE SUPERPOSITION ANALYSIS )
3041 FORMAT (1H1,102H ** STOP **, FOR A MODE SUPERPOSITION OR RESPONSE
1SPECTRUM ANALYSIS IT HAS TO BE SPECIFIED NMODES.GT.0 )
3050 FORMAT (//,15H ** WARNING ** ,/,
2 57H MODE SUPERPOSITION ANALYSIS CAN ONLY BE PERFORMED USING ,/,
3 45H MODIFIED NEWTON ITERATION AND NO LINE SEARCH ,/,
4 30H METHOD IS RESET TO -1 //)
3100 FORMAT (///28H *** I N P U T E R R O R /
1 29H DETECTED BY SUBROUTINE ADINI//
2 5X,49HMETHOD.EQ.A IS ONLY APPLICABLE IN STATIC ANALYSIS
3 /5X,22H * * * S T O P * * *)
3110 FORMAT (///28H *** I N P U T E R R O R /
1 29H DETECTED BY SUBROUTINE ADINI//
2 5X,44HMETHOD.EQ.A IS ONLY APPLICABLE IF NEGNL.GE.1,/,
3 5X,22H * * * S T O P * * *)
3120 FORMAT (///28H *** I N P U T E R R O R /
1 29H DETECTED BY SUBROUTINE ADINI//
2 55H MODE SUPERPOSITION CAN ONLY PERFORMED IF IMASS.GT.0 //
3 5X,22H * * * S T O P * * *)
3140 FORMAT (///28H *** I N P U T E R R O R ,/,
1 60H USER SUPPLIED LOADING CANNOT BE PRESENT IF AUTOMATIC STEP ,
1 35H INCREMENTATION IS USED ,//,13H *** S T O P //)
3141 FORMAT (///28H *** I N P U T E R R O R /
1 29H DETECTED BY SUBROUTINE ADINI//
2 60H FULL NEWTON ITERATION CAN NOT BE PERFORMED WITH CENTRAL DIF,
2 30HFERENCE METHOD /
3 22H * * * S T O P * * * )
3143 FORMAT (///28H *** I N P U T E R R O R /
1 29H DETECTED BY SUBROUTINE ADINI//
2 60H CONTACT SURFACES CAN NOT BE PRESENT WHEN CENTRAL DIFFERENCE,
2 30H METHOD IS USED /
3 22H * * * S T O P * * * )
3144 FORMAT (///28H *** I N P U T E R R O R /
1 29H DETECTED BY SUBROUTINE ADINI//
2 60H CONTACT SURFACES CAN NOT BE PRESENT IN A MODE SUPERPOSITION,
2 30H ANALYSIS /
3 22H * * * S T O P * * * )
3145 FORMAT(///28H *** I N P U T E R R O R /
1 29H DETECTED BY SUBROUTINE ADINI//
2 28H IREFOR MUST BE EQ.0 OR EQ.1 ,/,
3 15H INPUT IREFOR =,I5,/
4 22H * * * S T O P * * * )
3146 FORMAT(///28H *** I N P U T E R R O R /
1 29H DETECTED BY SUBROUTINE ADINI//
2 38H REACTION CALCULATION IS NOT AVAILABLE ,/,
3 31H WHEN SUBSTRUCTRES ARE PRESENT ,/,
4 18H (IN THIS VERSION) ,/,
5 22H * * * S T O P * * * )
3026 FORMAT(//,1H1,4X,
1 29HIDGRAV MUST BE GE.0 AND LE.2 ,/,4X,
1 13HINPUT IDGRAV=,I5 ,/)
3027 FORMAT(//,1H1,4X,
1 29HIDCFGL MUST BE GE.0 AND LE.2 ,/,4X,
1 13HINPUT IDCFGL=,I5 ,/)
3148 FORMAT(//,1H1,4X,
1 19HNRLINK MUST BE GE.0 ,/,4X,
1 13HINPUT NRLINK=,I5)
3150 FORMAT(//,1H1,4X,
1 27HFREQENCY ANALYSIS CANNOT BE,/,4X,
1 31HPERFORMED WHEN CONTACT SURFACES,/,4X,
1 11HARE PRESENT,/)
3152 FORMAT(//,1H1,4X,
1 39HINITIAL IMPERFECTION ANALYSIS CANNOT BE,/,4X,
1 31HPERFORMED WHEN CONTACT SURFACES,/,4X,
1 11HARE PRESENT ,/)
3153 FORMAT (///20H *** INPUT ERROR ***,//,
1 61H LINEARIZED BUCKLING ANALYSIS CANNO⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -