home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / CHEKDG.FOR < prev    next >
Encoding:
Text File  |  1986-12-15  |  1.6 KB  |  29 lines
  1.  
  2.       SUBROUTINE CHEKDG(cicm,IR)                                         
  3.     integer cicm
  4.  
  5. c    include 'tcommon.for'
  6.     %include tcommon.for
  7.  
  8. C     ...THIS ROUTINE CHECKS IF FACILITY REQUESTED IN COMMAND IS DAMAGED
  9.       DIMENSION IC(23)                                                  
  10.       DATA IC/0,6,7,3,4,5,4*0,1,0,0,9,6,0,6,0,8,9,0,10,10/              
  11.       IR=0                                                              
  12.       JC=IC(cicm)                                                       
  13.       IF(JC.EQ.0)GO TO 998                                              
  14.       IF(cicm.EQ.17.AND.PSP.GE.1.)JC=7                                  
  15.       IF(IDMG(JC).EQ.0)GO TO 998                                        
  16.       IR=1                                                              
  17.       WRITE(6,1)NAMD(JC)                                                
  18. 1     FORMAT(1X,A10,' DAMAGED')                                         
  19. 999   RETURN                                                            
  20. 998   IF(NDRA.NE.1)GO TO 999                                            
  21.       IF(cicm.EQ.1.OR.cicm.EQ.10.OR.cicm.EQ.11.OR.cicm.EQ.22.OR.
  22.      1cicm.EQ.23)GO TO 997
  23.       GO TO 999                                                         
  24. 997   WRITE(6,2)                                                        
  25. 2     FORMAT(' IMPOSSIBLE- ENTERPRISE UNDER ALIEN CONTROL!!')           
  26.       IR=1                                                              
  27.       GO TO 999                                                         
  28.       END                                                               
  29.