SUBROUTINE I0TK01 C LOGICAL DONE C DATA DONE /.FALSE./ C IF(DONE) RETURN DONE = .TRUE. IUNIT = I1MACH(4) C WRITE( IUNIT, 100) WRITE( IUNIT, 200) WRITE( IUNIT, 300) C RETURN C 100 FORMAT (1H1, *62H YOU HAVE USED, DIRECTLY OR INDIRECTLY, ONE OF THE STORAGE AL-/ *62H LOCATION PROGRAMS IALLOC, DALLOC, STINIT, NIRALL, MTSTAK OR/ *62H SRECAP. THESE ARE BASED ON THE ASSUMPTION THAT ONE -UNIT- OF/ *62H STORAGE IS ALLOCATED TO DATA OF TYPE LOGICAL, INTEGER AND/ *62H REAL AND THAT TWO -UNITS- OF STORAGE ARE ALLOCATED TO DATA OF/ *62H TYPE DOUBLE PRECISION AND COMPLEX. THIS ASSUMPTION PREVENTS/ *62H MOVING PORT TO MANY MINI-COMPUTERS. / *62H / *62H TO OVERCOME THIS DIFFICULTY, THE PACKAGE HAS BEEN REWRITTEN/ *62H WITH NEW NAMES AND SIMILAR CALLING SEQUENCES. CALLS TO THE/ *62H OLD SUBPROGRAMS SHOULD BE REPLACED BY CALLS TO THE NEW/ *62H PACKAGE WHEN CONVENIENT. TO AVOID OBSOLETING OLD PROGRAMS/ *62H THE OLD CALLING SEQUENCES WILL CONTINUE TO BE SUPPORTED. / *62H / *) C 200 FORMAT( *62H THE OLD AND NEW CALLING SEQUENCES ARE AS FOLLOWS- / *62H / *62H FUNCTION OLD NEW / *62H / *62H GET IX = IALLOC(NDATA,ISIZE) IX = ISTKGT(NDATA,ITYPE)/ *62H RELEASE CALL DALLOC(NFRAMES) CALL ISTKRL(NFRAMES) / *62H INITIALIZE CALL STINIT(NDATA,ISIZE) CALL ISTKIN(NDATA,ITYPE)/ *62H MODIFY IX = MTSTAK(NDATA) IX = ISTKMD(NDATA) / *62H STATISTICS CALL SRECAP(IUNIT) - NO EQUIVALENT - / *62H QUERY N = NIRALL(ISIZE) N = ISTKQU(ITYPE) / *62H / *) C 300 FORMAT( *62H IN THE ABOVE ITYPE IS AS FOLLOWS- / *62H / *62H 1 LOGICAL / *62H 2 INTEGER / *62H 3 REAL / *62H 4 DOUBLE PRECISION / *62H 5 COMPLEX / *62H / *62H NOTE ALSO THAT ALLOCATIONS SHOULD NOT BE SPLIT INTO SUBAL-/ *62H LOCATIONS OF DIFFERENT TYPE AS THIS ALSO COMPROMISES POR-/ *62H TABILITY. / *) C END