isnan_pgi

[unres.git] / source / wham / src-M / parmread.F

diff --git a/source/wham/src-M/parmread.F b/source/wham/src-M/parmread.F
index eb007cd..963212c 100644 (file)
--- a/source/wham/src-M/parmread.F
+++ b/source/wham/src-M/parmread.F
@@ -364,7 +364,7 @@ C
       do i=-ntyp1,-1
         ithetyp(i)=-ithetyp(-i)
       enddo
-      write (iout,*) "tu dochodze"
+c      write (iout,*) "tu dochodze"
       do iblock=1,2
       do i=-maxthetyp,maxthetyp
         do j=-maxthetyp,maxthetyp
@@ -399,7 +399,7 @@ C      write (iout,*) "KURWA1"
         do j=-nthetyp,nthetyp
           do k=-nthetyp,nthetyp
             read (ithep,'(6a)') res1
-            write(iout,*) res1,i,j,k
+c            write(iout,*) res1,i,j,k
             read (ithep,*) aa0thet(i,j,k,iblock)
             read (ithep,*)(aathet(l,i,j,k,iblock),l=1,ntheterm)
             read (ithep,*)
@@ -821,7 +821,7 @@ cc maxinter is maximum interaction sites
         do j=1,nsccortyp
           read (isccor,*)
      &nterm_sccor(i,j),nlor_sccor(i,j)
-          write (iout,*) nterm_sccor(i,j)
+c          write (iout,*) nterm_sccor(i,j)
           v0ijsccor=0.0d0
           v0ijsccor1=0.0d0
           v0ijsccor2=0.0d0
@@ -830,8 +830,8 @@ cc maxinter is maximum interaction sites
           nterm_sccor(-i,j)=nterm_sccor(i,j)
           nterm_sccor(-i,-j)=nterm_sccor(i,j)
           nterm_sccor(i,-j)=nterm_sccor(i,j)
-          write (iout,*) nterm_sccor(i,j),nterm_sccor(-i,j),
-     &    nterm_sccor(-i,-j),nterm_sccor(i,-j)
+c          write (iout,*) nterm_sccor(i,j),nterm_sccor(-i,j),
+c     &    nterm_sccor(-i,-j),nterm_sccor(i,-j)
           do k=1,nterm_sccor(i,j)
             read (isccor,*) kk,v1sccor(k,l,i,j)
      &    ,v2sccor(k,l,i,j)