From ab4026e707bd7eae02d002d3afdd5adadf8516e1 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 11 Jun 2019 16:34:07 +0200 Subject: [PATCH] pInt not needed --- src/MarcInclude/concom2018 | 4 ++-- src/MarcInclude/concom2018.1 | 4 ++-- src/MarcInclude/creeps2018 | 4 ++-- src/MarcInclude/creeps2018.1 | 4 ++-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/src/MarcInclude/concom2018 b/src/MarcInclude/concom2018 index e57db25f5..59b0c6bcb 100644 --- a/src/MarcInclude/concom2018 +++ b/src/MarcInclude/concom2018 @@ -5,7 +5,7 @@ ! ! MSC.Marc include file ! -integer(pInt) & +integer & iacous, iasmbl, iautth, ibear, icompl, iconj, icreep, ideva, idyn, idynt,& ielas, ielcma, ielect, iform, ifour, iharm, ihcps, iheat, iheatt, ihresp,& ijoule, ilem, ilnmom, iloren, inc, incext, incsub, ipass, iplres, ipois,& @@ -27,7 +27,7 @@ integer(pInt) & iaem, icosim, inodels, nlharm, iampini, iphasetr, inonlcl, inonlct, iforminp,ispecerror,& icsprg dimension :: ideva(60) -integer(pInt) num_concom +integer num_concom parameter(num_concom=251) common/marc_concom/& iacous, iasmbl, iautth, ibear, icompl, iconj, icreep, ideva, idyn, idynt,& diff --git a/src/MarcInclude/concom2018.1 b/src/MarcInclude/concom2018.1 index e57db25f5..59b0c6bcb 100644 --- a/src/MarcInclude/concom2018.1 +++ b/src/MarcInclude/concom2018.1 @@ -5,7 +5,7 @@ ! ! MSC.Marc include file ! -integer(pInt) & +integer & iacous, iasmbl, iautth, ibear, icompl, iconj, icreep, ideva, idyn, idynt,& ielas, ielcma, ielect, iform, ifour, iharm, ihcps, iheat, iheatt, ihresp,& ijoule, ilem, ilnmom, iloren, inc, incext, incsub, ipass, iplres, ipois,& @@ -27,7 +27,7 @@ integer(pInt) & iaem, icosim, inodels, nlharm, iampini, iphasetr, inonlcl, inonlct, iforminp,ispecerror,& icsprg dimension :: ideva(60) -integer(pInt) num_concom +integer num_concom parameter(num_concom=251) common/marc_concom/& iacous, iasmbl, iautth, ibear, icompl, iconj, icreep, ideva, idyn, idynt,& diff --git a/src/MarcInclude/creeps2018 b/src/MarcInclude/creeps2018 index 85c67492d..09550f501 100644 --- a/src/MarcInclude/creeps2018 +++ b/src/MarcInclude/creeps2018 @@ -6,12 +6,12 @@ ! MSC.Marc include file ! real(pReal) cptim,timinc,timinc_p,timinc_s,timincm,timinc_a,timinc_b -integer(pInt) icfte,icfst,icfeq,icftm,icetem,mcreep,jcreep,icpa,icftmp,icfstr,& +integer 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 real(pReal) fraction_donn,timinc_ol2 ! -integer(pInt) num_creepsr,num_creepsi,num_creeps2r +integer num_creepsr,num_creepsi,num_creeps2r parameter(num_creepsr=7) parameter(num_creepsi=17) parameter(num_creeps2r=6) diff --git a/src/MarcInclude/creeps2018.1 b/src/MarcInclude/creeps2018.1 index 85c67492d..09550f501 100644 --- a/src/MarcInclude/creeps2018.1 +++ b/src/MarcInclude/creeps2018.1 @@ -6,12 +6,12 @@ ! MSC.Marc include file ! real(pReal) cptim,timinc,timinc_p,timinc_s,timincm,timinc_a,timinc_b -integer(pInt) icfte,icfst,icfeq,icftm,icetem,mcreep,jcreep,icpa,icftmp,icfstr,& +integer 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 real(pReal) fraction_donn,timinc_ol2 ! -integer(pInt) num_creepsr,num_creepsi,num_creeps2r +integer num_creepsr,num_creepsi,num_creeps2r parameter(num_creepsr=7) parameter(num_creepsi=17) parameter(num_creeps2r=6)