creadParam.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	creadparam (io)

Function/Subroutine Documentation

creadparam()

subroutine creadparam

(

integer

io

)

Definition at line 5 of file creadParam.f.

References cerrormsg(), and param.

Referenced by __atmosd.f__(), __atmosd2.f__(), __atmosd3.f__(), __atmosd4.f__(), __det2exyz.f__(), __det2prim.f__(), __det2prim2.f__(), __getacceptance.f__(), __getst.f__(), __getst2.f__(), __getst3.f__(), __showspec.f__(), __testsampprim.f__(), __xyz2det.f__(), cgetskelfile(), cmanager(), convcoord(), crestorestatus(), init(), main(), showparam(), and testinitobs().

      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)

Here is the call graph for this function:

Here is the caller graph for this function: