creadParam.f

Go to the documentation of this file.

!             read Parameters for the cosmos simulation.
!
!     *********************************
      subroutine creadparam(io)
      use modefield
      use modmcsparam 
      implicit none
#include  "ZincForNameL.h"

      integer io    !  logical file #.  5 is standard input.
!                      even if it is not stdin on some system.
!                      If this is not 5, the corresponding 
!                      disk file must have been opened.       
      if(io .eq. 5) then
         read(*, param, end=100)
      else
         read(io, param, end=100)
      endif
!      if(hidden) then
      if(io .eq. 5) then
         read(*, hparam, end=80, err=50)
      else
         read(io, hparam, end=80, err=50)
      endif
 80   continue
!      endif
      return
 50   continue
      write(0,*) 'Error data in the namelist: HParam'
      write(0,*) 'Possible cause may be "ALateCor (D=1)" which'
      write(0,*) 'is now an integer (old version was logcial)'
      write(0,*) 'but may be others; see next error position'
      if(io .eq. 5) then
         read(*, hparam)
      else
         read(io, hparam)
      endif
      stop
 100  continue
      write(0,*) 'creadParam. Namelist assumed  on I/O unit number=',
     *   io
      call 
     * cerrormsg('but dose not exist', 1)
      end