g4dpmjet_initialise_block_data.f

Go to the documentation of this file.

      subroutine g4dpmjet_initialise_block_data ()
      
C
C ------------------------------------------------------------------------------
C
      EXTERNAL         runtt
      EXTERNAL         noname
      EXTERNAL         zk
      EXTERNAL         blkd43
      EXTERNAL         reacch
      EXTERNAL         jtdata
      EXTERNAL         blkd41
      EXTERNAL         bookle
      EXTERNAL         blkd46
      EXTERNAL         blkd47
      EXTERNAL         qprop
      EXTERNAL         radini
      EXTERNAL         hadini
      EXTERNAL         pomen
      EXTERNAL         pydata
C
C
C The follow line is to force the mathlib least-squares polynomial fit to be
C loaded.  This is required as the -L and -lmathlib -lkernlib flags in the
C load process appear to come before the G4ParamType1GlauberDataSet.o object
C is loaded, resulting in dlsqpm not being found.
C
      external     dlsqpm
     
      return
      
      end