      SUBROUTINE PROGR                                                  SIMT0041
C  THIS TEST DATA CHECKS OUT THE WORKINGS OF SIMCMP.  THE FIRST THREE   SIMT0042
C  LINES WILL NOT BE MATCHED, AND SHOULD BE OUTPUT IN THEIR ENTIRETY.   SIMT0043
      PRINT 100, GEN1
      PRINT 101, GEN2
      PRINT 102, GEN3
      PRINT 103, GEN4
      PRINT 104, GEN5
      PRINT 105, GEN6
      PRINT 106, GEN7
      PRINT 107, GEN8
      PRINT 108, GEN9
      PRINT 109, GEN10
  100 FORMAT(6H GEN1=,F6.4)
  101 FORMAT(6H GEN2=,F6.4)
  102 FORMAT(6H GEN3=,F6.4)
  103 FORMAT(6H GEN4=,F6.4)
  104 FORMAT(6H GEN5=,F6.4)
  105 FORMAT(6H GEN6=,F6.4)
  106 FORMAT(6H GEN7=,F6.4)
  107 FORMAT(6H GEN8=,F6.4)
  108 FORMAT(6H GEN9=,F6.4)
  109 FORMAT(7H GEN10=,F6.4)
      NINE=1+2+3+4+5+6+7+8+9
      TESTC=A
      TYPE1=65
C  THIS CODE BODY LINE HAS NO TERMINATOR.  IT SHOULD HAVE 80 CHARACTERS.SIMT0039
      TESTC=0
      TYPE1=48
      PRINT 110, GEN1
      PRINT 111, GEN2
      PRINT 112, GEN3
      PRINT 113, GEN4
      PRINT 114, GEN5
      PRINT 115, GEN6
      PRINT 116, GEN7
      PRINT 117, GEN8
      PRINT 118, GEN9
      PRINT 119, GEN10
  110 FORMAT(6H GEN1=,F6.4)
  111 FORMAT(6H GEN2=,F6.4)
  112 FORMAT(6H GEN3=,F6.4)
  113 FORMAT(6H GEN4=,F6.4)
  114 FORMAT(6H GEN5=,F6.4)
  115 FORMAT(6H GEN6=,F6.4)
  116 FORMAT(6H GEN7=,F6.4)
  117 FORMAT(6H GEN8=,F6.4)
  118 FORMAT(6H GEN9=,F6.4)
  119 FORMAT(7H GEN10=,F6.4)
C  END OF SIMCMP TEST.  THIS LINE CONTAINS TYPE 0 ELEMENTS ONLY
      RETURN
      END
 
