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)