dvnopt.F

Go to the documentation of this file. Or view the newest version in sPHENIX GitHub for file dvnopt.F

C **********************************************************************

      SUBROUTINE dvnopt

      IMPLICIT NONE

C...Change of default options in DIVONNE

      COMMON /print/ iprdiv
      INTEGER iprdiv

      COMMON /lpflag/ lst3
      INTEGER lst3
      SAVE /lpflag/


      iprdiv=0
      IF(lst3.GE.2) iprdiv=1000
      IF(lst3.GE.4) iprdiv=10
      IF(lst3.GE.4) WRITE(6,1000) iprdiv
      RETURN
 1000 FORMAT(5x,'DIVON4 print flag changed: IPRDIV =',i5)
      END