Commit f71adbd4 authored by Uliana Alekseeva's avatar Uliana Alekseeva

An output was commented out, because the subroutine orbmom2 is now used in parallel.

parent 65e7bc60
......@@ -105,10 +105,13 @@ CONTAINS
clmom(2) = qmtty
clmom(3) = qmtt
WRITE (6,FMT=8100) itype, (qmtl(l),l=0,3), qmtt
WRITE (6,FMT=8100) itype, (qmtlx(l),l=0,3),qmttx
WRITE (6,FMT=8100) itype, (qmtly(l),l=0,3),qmtty
8100 FORMAT (' -->',i2,2x,4f9.5,2x,f9.5)
! The following output was commented out, because the subroutine is now used in parallel.
! Jan. 2019 U.Alekseeva
!
! WRITE (6,FMT=8100) itype, (qmtl(l),l=0,3), qmtt
! WRITE (6,FMT=8100) itype, (qmtlx(l),l=0,3),qmttx
! WRITE (6,FMT=8100) itype, (qmtly(l),l=0,3),qmtty
!8100 FORMAT (' -->',i2,2x,4f9.5,2x,f9.5)
END SUBROUTINE orbmom2
END MODULE m_orbmom2
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment