C C AUTHOR: C R. STODOLA C THE INSTITUTE FOR CANCER RESEARCH C 7701 BURHOLME AVE. C PHILADELPHIA, PA. 19111 C C ******************************************************* C * * C * THIS SOFTWARE WAS DEVELOPED WITH SUPPORT * C * FROM THE NATIONAL INSTITUTES OF HEALTH: * C * NIH CA06927 * C * NIH CA22780 * C * * C * DIRECT INQUIRIES TO: * C * COMPUTER CENTER * C * THE INSTITUTE FOR CANCER RESEARCH * C * 7701 BURHOLME AVENUE * C * PHILADELPHIA, PENNSYLVANIA 19111 * C * * C * NO WARRANTY OR REPRESENTATION, EXPRESS OR * C * IMPLIED, IS MADE WITH RESPECT TO THE * C * CORRECTNESS, COMPLETENESS, OR USEFULNESS * C * OF THIS SOFTWARE, NOR THAT USE OF THIS * C * SOFTWARE MIGHT NOT INFRINGE PRIVATELY * C * OWNED RIGHTS. * C * * C * NO LIABILITY IS ASSUMED WITH RESPECT TO * C * THE USE OF, OR FOR DAMAGES RESULTING FROM * C * THE USE OF THIS SOFTWARE * C * * C ******************************************************* C * * C * THIS SOFTWARE WAS DESIGNED FOR USE ON A * C * PDP-11/70 OPERATING UNDER IAS V2.0 USING * C * THE FORTRAN-IV PLUS COMPILER. * C * * C ******************************************************* COMMON/GENP/LIST(96) DATA GENC,GENU/6R..GENC,6R..GENU/ C C CLEAR OUT ACCUMULATION ARRAY. C DO 10 I=1,96 10 LIST(I)=0 C C SCHEDULE ..GENC ONE MINUTE AFTER NEXT 15 MINUTE BREAK. C X=SECNDS(0.0) IP=X/900. MIN=X/60. IP=IP+1 NSC=IP*15-MIN CALL SYNC(GENC,,NSC,3,3,,,IDS) IF(IDS.GT.0)GO TO 30 TYPE 20 20 FORMAT('0***FAILED TO SCHEDULE ..GENC') GO TO 40 C C SCHEDULE ..GENU FOR ONE MINUTE AFTER MIDNIGHT FROM NOW UNTIL C ETERNITY. C 30 CALL SCHED(GENU,,0,1,0,0,24,4,IDS) IF(IDS.GT.0)GO TO 60 40 TYPE 50 50 FORMAT('0***FAILED TO SCHEDULE ..GENU') 60 END