indb(n,5),indb(n,4),indb(n,7),indb(n,8),indb(n,9),&
chacc,iaccn,difmin,denep
else
indb(n,5),indb(n,4),indb(n,7),indb(n,8),indb(n,9),&
chacc,iaccn,difmin,denep
else
- write(iout,'(i3,a3,i4,i5,a6,1pe12.4,a4,i3,i4,3i5,a5,0pf4.1,&
- a5,f3.0,1x,a1,i4,0pf8.1,0pf8.1)') &
+ write(iout,'(i3,a3,i4,i5,a6,1pe12.4,a4,i3,i4,3i5,a5,0pf4.1,a5,f3.0,1x,a1,i4,0pf8.1,0pf8.1)') &
indb(n,2),' e ',indb(n,3),indb(n,1),' etot ',etot(n),' mv ',&
indb(n,5),indb(n,4),indb(n,7),indb(n,8),indb(n,9),&
' rms ',rmsn(n),' %NC ',pncn(n)*100,&
indb(n,2),' e ',indb(n,3),indb(n,1),' etot ',etot(n),' mv ',&
indb(n,5),indb(n,4),indb(n,7),indb(n,8),indb(n,9),&
' rms ',rmsn(n),' %NC ',pncn(n)*100,&
! implicit real*8 (a-h,o-z)
! include 'DIMENSIONS'
! include 'COMMON.IOUNITS'
! implicit real*8 (a-h,o-z)
! include 'DIMENSIONS'
! include 'COMMON.IOUNITS'
!cccccccccccccccccccccccccccccccccccccc
do while (.not. finished)
!cccccccccccccccccccccccccccccccccccccc
!cccccccccccccccccccccccccccccccccccccc
do while (.not. finished)
!cccccccccccccccccccccccccccccccccccccc