32 lines
1.4 KiB
Groff
32 lines
1.4 KiB
Groff
|
! common block definition file taken from respective MSC.Marc release and reformated to free format
|
||
|
|
!***********************************************************************
|
||
|
|
!
|
||
|
|
! File: creeps.cmn
|
||
|
|
!
|
||
|
|
! MSC.Marc include file
|
||
|
|
!
|
||
|
|
real(pReal) cptim,timinc,timinc_p,timinc_s,timincm,timinc_a,timinc_b
|
||
|
|
integer(pInt) icptim,icfte,icfst,icfeq,icftm,icetem,mcreep,jcreep,icpa,icftmp,icfstr,&
|
||
|
|
icfqcp,icfcpm,icrppr,icrcha,icpb,iicpmt,iicpa
|
||
|
|
real(pReal) time_beg_lcase,time_beg_inc,fractol,time_beg_pst
|
||
|
|
!
|
||
|
|
integer(pInt) num_creepsr,num_creepsi,num_creeps2r
|
||
|
|
parameter(num_creepsr=7)
|
||
|
|
parameter(num_creepsi=18)
|
||
|
|
parameter(num_creeps2r=4)
|
||
|
|
common/marc_creeps/cptim,timinc,timinc_p,timinc_s,timincm,timinc_a,timinc_b,icptim,icfte,icfst,&
|
||
|
|
icfeq,icftm,icetem,mcreep,jcreep,icpa,icftmp,icfstr,icfqcp,icfcpm,icrppr,icrcha,icpb,iicpmt,iicpa
|
||
|
|
common/marc_creeps2/time_beg_lcase,time_beg_inc,fractol,time_beg_pst
|
||
|
|
!
|
||
|
|
! time_beg_lcase time at the beginning of the current load case
|
||
|
|
! time_beg_inc time at the beginning of the current increment
|
||
|
|
! fractol fraction of loadcase or increment time when we
|
||
|
|
! consider it to be finished
|
||
|
|
! time_beg_pst time corresponding to first increment to be
|
||
|
|
! read in from thermal post file for auto step
|
||
|
|
!
|
||
|
|
!***********************************************************************
|
||
|
|
!$omp threadprivate(/marc_creeps/)
|
||
|
|
!$omp threadprivate(/marc_creeps2/)
|
||
|
|
!!
|