This commit is contained in:
Eisuke Kawashima 2020-03-12 22:05:25 +09:00 committed by Ole Schütt
parent 0d0e0047ac
commit 40b9ef4da9
325 changed files with 735 additions and 737 deletions

View file

@ -2083,7 +2083,7 @@ END SUBROUTINE calfun
WVEC(IP,4)=ZERO
120 WVEC(IP,5)=ZERO
!
! Put the coefficents of THETA*Wcheck in PROD.
! Put the coefficients of THETA*Wcheck in PROD.
!
DO 190 JC=1,5
NW=NPT