***
*     s1code.f
***

*+DECK,S1MATE.
*CMZ :  2.05/22 12/06/95  11.11.47  by  Hal Kalechofsky
*-- Author :
      SUBROUTINE S1MATE

C
C ***********************************************************************
C *                                                                     *
C *           Definition of Material for PLANES  Code                   *
C *                                                                     *
C ***********************************************************************
C *                                                                     *
C *  CALLED BY     : SXMATE                                             *
C *  CONTACT       :                                                    *
C *                                                                     *
C *  ORIGIN        :
C *  REWRITTEN     :                                                    *
C *  MODIFICATIONS :                                                    *
C *                                                                     *
C ***********************************************************************
C

      IMPLICIT NONE

      RETURN
      END




*+DECK,S1TMED.
*CMZ :  2.05/22 12/06/95  11.11.47  by  Hal Kalechofsky
*-- Author :
      SUBROUTINE S1TMED

C
C ***********************************************************************
C *                                                                     *
C *           Definition of Media  for PLANES  Code                     *
C *                                                                     *
C ***********************************************************************
C *                                                                     *
C *  CALLED BY     : SXTMED                                             *
C *  CONTACT       :                                                    *
C *                                                                     *
C *  ORIGIN        :
C *  REWRITTEN     :                                                    *
C *  MODIFICATIONS :                                                    *
C *                                                                     *
C ***********************************************************************
C

      IMPLICIT NONE

      RETURN
      END



*+DECK,S1GEOM.
*CMZ :  2.05/22 12/06/95  11.11.47  by  Hal Kalechofsky
*-- Author :
      SUBROUTINE S1GEOM



C
C ***********************************************************************
C *                                                                     *
C *           Definition of  PLANES  Geometry                           *
C *                                                                     *
C ***********************************************************************
C *                                                                     *
C *  CALLED BY     : SXGEOM                                             *
C *  CONTACT       :                                                    *
C *                                                                     *
C *  ORIGIN        :
C *  REWRITTEN     :
C *  MODIFICATIONS :
C *                                                                     *
C ***********************************************************************
C
      IMPLICIT NONE


      RETURN
      END



*+DECK,S1SENS.
*CMZ :  2.05/22 12/06/95  11.11.47  by  Hal Kalechofsky
*-- Author :
      SUBROUTINE S1SENS

C
C ***********************************************************************
C *                                                                     *
C *           Definition of Sensitive Elements for PLANES               *
C *                                                                     *
C ***********************************************************************
C *                                                                     *
C *  CALLED BY     : SXSENS                                             *
C *  CONTACT       :                                                    *
C *                                                                     *
C *  ORIGIN        :
C *  REWRITTEN     :
C *  MODIFICATIONS :
C *                                                                     *
C ***********************************************************************
C

      IMPLICIT NONE


      RETURN
      END




*+DECK,S1DRAW.
*CMZ :  2.05/29 21/06/95  16.39.35  by  Hal Kalechofsky
*CMZ :  2.05/22 12/06/95  11.11.47  by  Hal Kalechofsky
*-- Author :
      SUBROUTINE S1DRAW

C
C ***********************************************************************
C *                                                                     *
C *                       Drawing PLANES                                *
C *                                                                     *
C ***********************************************************************
C *                                                                     *
C *  CALLED BY     : SXDRAW                                             *
C *  CONTACT       :                                                    *
C *                                                                     *
C *  ORIGIN        :
C *  REWRITTEN     :
C *  MODIFICATIONS :
C *                                                                     *
C ***********************************************************************
C
      IMPLICIT NONE


      RETURN
      END

*+DECK,S1KEY.
*CMZ :  2.05/36 22/06/95  21.00.54  by  Hal Kalechofsky
*CMZ :  2.05/22 12/06/95  11.11.47  by  Hal Kalechofsky
*-- Author :
      SUBROUTINE S1KEY

C
C ***********************************************************************
C *                                                                     *
C *                Definition of FFREAD Keys                            *
C *                                                                     *
C ***********************************************************************
C *                                                                     *
C *  CALLED BY     : SXKEY                                              *
C *  CONTACT       :                                                    *
C *                                                                     *
C *  ORIGIN        :
C *  REWRITTEN     :
C *  MODIFICATIONS :                                                    *
C *                                                                     *
C ***********************************************************************

      IMPLICIT NONE
*KEEP,SC1FFK.
C --- Common with the users defined FFKEY cards
      INTEGER INAME1,INAME2,IMIX1
      REAL SNAME1,SNAME2,SMIX2,SMIX3
      COMMON /SC1FFK/INAME1,INAME2,SNAME1,SNAME2,IMIX1,SMIX2,SMIX3

* Here write comments for each card. Transfer the same comments to the
* runcards file.
* In the examples the data cards are EXMP1, EXMP2 and EXMP3.
* The first one has two Integer variables, INAME1 and INAME2 that can
* take the values that the user specifies from the runcards file.
* Similarly the EXMP2 has 2 real variables while the EXMP3 has 3 mixed
* variables
*
* DATA CARD : EXMP1
*             to control the ...........
* INAME1 = 100 ==> ....
* INAME1 = 200 ==> ....
*
* INAME2 = 1000 ==> ...
* INAME2 = 2000 ==> ...
*
*
* DATA CARD : EXMP2
*             to control the ...........
* SNAME1 = 100. ==> ....
* SNAME1 = 200. ==> ....
*
* SNAME2 = 1000. ==> ...
* SNAME2 = 2000. ==> ...
*

C      INAME1 = 100
C      INAME2 = 1000
C      CALL FFKEY('EXMP1',INAME1,       2,'INTEGER')
C
C      SNAME1 = 100.0
C      SNAME2 = 1000.0
C      CALL FFKEY('EXMP2',SNAME1,       2,'REAL')
C
C      IMIX1 = 0
C      SMIX2 = 0.
C      SMIX3 = 0.
C      CALL FFKEY( 'EXMP3',IMIX1,3,'MIXE' )


 9999 CONTINUE
      RETURN
      END




























