diff --git a/trimsp/src/trimsp7l.F b/trimsp/src/trimsp7l.F index f952b9a..c616a35 100644 --- a/trimsp/src/trimsp7l.F +++ b/trimsp/src/trimsp7l.F @@ -408,6 +408,7 @@ C CHARACTER Variables DATA ET/0.D0/,PLST/0.D0/,PL2ST/0.D0/,PL3ST/0.D0/ DATA PL4ST/0.D0/,PL5ST/0.D0/,PL6ST/0.D0/ + DATA KIT/0/,KIS/0/,KIST/0/,NALL/0/,NPA/0/,NSA/0/,KIB/0/,MAXA/0/ DATA SEM/0.D0/,IT/0/,NPROJ/0/,NREC1/0/,NREC2/0/ DATA NH/0/,IB/0/,IBL/0/,NJ/7*0/,NLI/8*0/,DLI/7*0.D0/ DATA tryE/0/,negE/0/ diff --git a/trimsp/src/trimspNL.F b/trimsp/src/trimspNL.F index 3e12ee5..3148b83 100644 --- a/trimsp/src/trimspNL.F +++ b/trimsp/src/trimspNL.F @@ -438,6 +438,7 @@ C CHARACTER Variables DATA ET/0.D0/,PLST/0.D0/,PL2ST/0.D0/,PL3ST/0.D0/ DATA PL4ST/0.D0/,PL5ST/0.D0/,PL6ST/0.D0/ + DATA KIT/0/,KIS/0/,KIST/0/,NALL/0/,NPA/0/,NSA/0/,KIB/0/,MAXA/0/ DATA SEM/0.D0/,IT/0/,NPROJ/0/,NREC1/0/,NREC2/0/ DATA NH/0/,IB/0/,IBL/0/,NJ/MAXNL*0/,NLI/MAXNL*0/ DATA DLI/MAXNL*0.D0/