problem with print in .f90

sestelo · Oct 27, 2017 · b9da697 · b9da697
1 parent 29dcec9
commit b9da697
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/program2.f90 b/src/program2.f90
@@ -311,7 +311,7 @@ subroutine RfastC3(X,Y,W,n,p,kbin,h,T)
 
 do i=1,n
 !print *, residuo(1:n)
- print *, pred1(i)
+ !print *, pred1(i)
 end do
 
 
@@ -997,7 +997,7 @@ subroutine globaltest_(F,X,Y,W,n,h0,h,nh,p,kbin,fact,nf,kernel,nboot,r,T,&
 call rfast_h(X,Y,W,n,h0,p,Xb,Pb,kbin,kernel,nh)
 call Interpola (Xb,Pb(1,1,1),kbin,X,muhatg,n)
 
-print *, h0
+!print *, h0
 
 !print *, muhatg