        MODULE parameters
C  Max number of planes
	INTEGER, PARAMETER :: MAX_PLN=200

C  File unit numbers.  Note that IOUTFILE must be the largest
C  unit number.
	   INTEGER, PARAMETER :: INFILE=2
           INTEGER, PARAMETER :: ISTRESS=3
           INTEGER, PARAMETER :: ISTRAIN=4
           INTEGER, PARAMETER :: IDISPL=11
           INTEGER, PARAMETER :: IORIENT=12
	   INTEGER, PARAMETER :: IFAIL=17
	   INTEGER, PARAMETER :: INVAR=13
           INTEGER, PARAMETER :: IDGRAD=15
           INTEGER, PARAMETER :: IROTAT=14
           INTEGER, PARAMETER :: IELEM=16
           INTEGER, PARAMETER :: IOUTFILE=18

         END MODULE parameters
