SUBROUTINE RELMESG ( )
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
The relmesg subroutine inserts into the output information about a 
type of quasirelativistic potential selected, the state and the 
nucleus charge distribution model
Source file:relmesg.f
I/O Operations:
Unit ID  Unit No       Access  Form   Operation
    OUC                   SEQ  FMTD           W  

Operation codes A=rewind,B=backspace,C=close,E=endfile
                I=inquire,O=open,R=read,W=write
Intrinsic Functions Called
INTEGER            NINT
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +IZZ1
REAL*8            +SF
Referenced Common Block Variables (+ indicates altered content)
CONST              REAL*8             CVEL
INOUT              INTEGER            OUC
PARAM              REAL*8             Z
PERTAB             REAL*8             ATWEIGHT(0:100)
REL                INTEGER            IFERMI,    IGAUSS
REL                INTEGER            IQPOT,     ISTATE
REL                INTEGER           +IUPD,      IXPOT
REL                REAL*8             CVELDAMP,  XALPHA