ADAS Subroutine xxadas
SUBROUTINE XXADAS( HEADER ) C----------------------------------------------------------------------- C C ****************** FORTRAN77 SUBROUTINE: XXADAS ********************* C C PURPOSE: ADAS ROUTINE - GETS AN 80 BYTE CHARACTER STRING HEADER C CONTAINING THE ADAS RELEASE & VERSION, THE EXECUTING PROGRAM C NAME & VERSION, AND THE CURRENT DATE & TIME FROM IDL VIA C THE PIPE. C C CALLING PROGRAM: GENERAL USE C C SUBROUTINE: C C OUTPUT: (C*80) HEADER = ADAS HEADER (AS DESCRIBED ABOVE) C C (I*4) PIPEIN = PARAMETER = UNIT NUMBER FOR OUTPUT TO PIPE C (I*4) PIPEOU = PARAMETER = UNIT NUMBER FOR INPUT TO PIPE C C ROUTINES: C ROUTINE SOURCE BRIEF DESCRIPTION C ------------------------------------------------------------ C C AUTHOR: ANDREW BOWEN (TESSELLA SUPPORT SERVICES PLC) C C DATE: 24/05/93 C C----------------------------------------------------------------------- CHARACTER*80 HEADER