PROGRAM MASTER
C$LARGE:GSTIF,ELOAD,RLOAD,TLOAD,STRSG,EPSTN,EFFST
C**********************************************************************
C PROGRAM FOR THE ELASTO-PLASTIC ANALYSIS OF PLANE STRESS,
C PLANE STRAIN AND AXISYMMETRIC SOLIDS
C**********************************************************************
DIMENSION ASDIS(3000),COORD(1500,2),ELOAD(400,18),ESTIF(18,18),
. EQRHS(30),EQUAT(200,30),FIXED(3000),GLOAD(200),
. GSTIF(35000),
. IFFIX(3000),LNODS(400,9),LOCEL(18),MATNO(400),
. NACVA(200),NAMEV(30),NDEST(18),NDFRO(400),NOFIX(200),
. NOUTP(2),NPIVO(30),
. POSGP(4),PRESC(200,2),PROPS(10,7),RLOAD(400,18),
. STFOR(3000),TREAC(200,2),VECRV(200),WEIGP(4),
. STRSG(4,3600),TDISP(3000),TLOAD(400,18),
. TOFOR(3000),EPSTN(3600),EFFST(3600)
CHARACTER*14 INNAME,OUTNAME
WRITE(*,*) 'INPUT FILE NAME (INNAME & OUTNAME):'
READ(*,2) INNAME,OUTNAME
2 FORMAT(A14)
OPEN(5,FILE=INNAME,STATUS='OLD')
OPEN(6,FILE=OUTNAME,STATUS='unknown')
OPEN(1,STATUS='unknown',FORM='UNFORMATTED')
OPEN(2,STATUS='unknown',FORM='UNFORMATTED')
OPEN(4,STATUS='unknown',FORM='UNFORMATTED')
OPEN(8,STATUS='unknown',FORM='UNFORMATTED')
C
C*** PRESET VARIABLES ASSOCIATED WITH DYNAMIC DIMENSIONING
C
CALL DIMEN(MBUFA,MELEM,MEVAB,MFRON,MMATS,MPOIN,MSTIF,MTOTG,MTOTV,
. MVFIX,NDOFN,NPROP,NSTRE)
C
C*** CALL THE SUBROUTINE WHICH READS MOST OF THE PROBLEM DATA
C
CALL INPUT(COORD,IFFIX,LNODS,MATNO,MELEM,MEVAB,MFRON,MMATS,
. MPOIN,MTOTV,MVFIX,NALGO,
. NCRIT,NDFRO,NDOFN,NELEM,NEVAB,NGAUS,NGAU2,
. NINCS,NMATS,NNODE,NOFIX,NPOIN,NPROP,NSTRE,
. NSTR1,NTOTG,NTOTV,
. NTYPE,NVFIX,POSGP,PRESC,PROPS,WEIGP)
C
C*** CALL THE SUBROUTINE WHICH COMPUTES THE CONSISTENT LOAD VECTORS
C FOR EACH ELEMENT AFTER READING THE RELEVANT INPUT DATA
C
评论2