C C ******************************** C * * C * PHASER CONTROL SUBROUTINE * C * * C ******************************** C SUBROUTINE PHASER COMMON QUAD(8,8),SECT(10,10),NGAL(8,8),K(7,5),STATUS(13),R1,C1,R,C &,H1,POW,SHLD(5),NTORP,A,B,H(7),N1,N2,N3,N4,N5,N6,II,JJ,RANK,ITR(4) COMMON/TESTS1/TROM1,TROM2,TDISAB,TDEST,TWON,TLOST,TRESC,TALTOW, &TBOFF,TALERT,TLOOS,TBALEN,TALSD,TINTRD DIMENSION NSEC(6,2),NP(6) INTEGER SECT,QUAD,R1,C1,R,C,SHLD,H1,A,B,POW,H LOGICAL TROM1,TROM2,TDISAB,TDEST,TWON,TLOST,TRESC,TALTOW,TBOFF, &TALERT,TDAMC,TEST2,TLOOS,TBALEN,TALSD,TINTRD C IF(STATUS(8).GE.0.)GOTO 1 TDAMC=.TRUE. CALL DAMCON(8,6,TDAMC) RETURN 1 IF(.NOT.TINTRD .OR. ITR(4).NE.1)GOTO 10 CALL DAMCON(8,97,.FALSE.) RETURN 10 TYPE 11 11 FORMAT(/1X'PHASER CONTROL') WRITE(3,11) CALL TARSEL(TEST2,NSEC,NP,J) IF(TEST2)RETURN 3 CALL HITS IF(TDISAB .OR. TDEST)RETURN CALL FIREPH(NSEC,NP,J) RETURN END