! 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,creept
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=40)
parameter(num_creepsi=18)
parameter(num_creeps2r=4)
common/marc_creeps/cptim,timinc,timinc_p,timinc_s,timincm,timinc_a,timinc_b,creept(33),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
!
!***********************************************************************