CUSALLC TITLE 'DUMMY ROUTINE ON IBM.'                                   00010000
C***********************************************************************
C                 COPYRIGHT ATLANTIC RICHFIELD COMPANY 1991            *
C***********************************************************************
C                                                                       00020000
CTITLEUSALLC -- DUMMY ROUTINE ON IBM.                                   00030000
CA    AUTHOR               PROBST RANDY                                 00040000
CA    DESIGNER             PROBST RANDY                                 00050000
CA    LANGUAGE             VS FORTRAN                                   00060000
CA    SYSTEM               IBM (SEE CRAY)                               00070000
CA    WRITTEN              12-01-87                                     00080000
C     REVISED                                                           00090000
CA                                                                      00100000
CA                                                                      00110000
CA    CALL USALLC (INFODA, RECLEN, RETCDE, ERRFLG)                      00120000
CA                                                                      00130000
CA    IN/OUT  ARGUMENT  TYPE  DESCRIPTION                               00140000
CA                                                                      00150000
CA    IN      INFODA      I8  DISK ADDRESS OF INFO 2 CARD.              00160000
CA                                                                      00170000
CA    IN      RECLEN      I4  RECORD LENGTH                             00180000
CA                                                                      00190000
CA    OUT     RETCDE      I8  RETURN CODE.                              00200000
CA                             2 = ALLOCATION FAILED                    00210000
CA                                                                      00220000
CA    OUT     ERRFLG      I8  CODE FROM ACCESS RETURNED STATUS.         00230000
CA                                                                      00240000
CA                                                                      00250000
CA       EJECT                                                          00260000
CA       THIS IS A DUMMY ROUTINE ON THE IBM TO MATCH CRAY VERSION.      00270000
CA                                                                      00280000
CA                                                                      00290000
CA       EJECT                                                          00300000
C                                                                       00310000
      SUBROUTINE USALLC (INFODA, RECLEN, RETCDE, ERRFLG)                00320000
C                                                                       00330000
      IMPLICIT INTEGER (A-Z)                                            00340000
C                                                                       00350000
C  SET RETURN CODE TO INDICATE NO ALLOCATION HAS OCCURED                00360000
C                                                                       00370000
      RETCDE = 2                                                        00380000
      RETURN                                                            00390000
      END                                                               00400000