SUBROUTINE SETGRID ( IGRID )
Argument Definitions (+ indicates altered content)
INTEGER            IGRID
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
This routine reads 'grid' card and extablishes parameters of the 
current grid
Source file:setgrid.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
      *                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
GENERIC*8          EXP
GENERIC*4          LOG
External Functions and Subroutines Called
SUBROUTINE         INPF,       INPI
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +IRMAX,      ITMP
REAL*8            +FTMP,      +RHOMAX
Referenced Common Block Variables (+ indicates altered content)
INOUT              INTEGER            INPIEXIT
PARAM              INTEGER           +NO
PARAM              REAL*8            +CH,       +EH,            +H
PARAM              REAL*8            +H1,       +H3
PARAM              REAL*8            +RHO,      +RMAX,           Z
PARAM1             REAL*8             D1,        D12
PARAM1             REAL*8             D16,       D2
PARAM1             REAL*8             D3