
                               					 7-Jan-1983 13:28:47	VAX-11 FORTRAN V3.1-23              Page   1
								 3-Jan-1983 16:02:05	SYS$SYSROOT:[CAMAC.CTS]CTSDEASGN.FOR;9      

0001    C+++
0002    C Subroutine to deassign logical names for the CAMAC Topology Supervisor
0003    C
0004    C   Date	By		Comments
0005    C		D.E.Greenwood	Original
0006    C  1/03/82	D.E.Greenwood	Calls to REPORT changed to 2 arguments
0007    C
0008    C---
0009    C
0010    	SUBROUTINE DEASGN
0011    C
0012    	CHARACTER LOG_NAM*32
0013    	INTEGER*2 LOG_NAM_LEN
0014    	INTEGER*4 CLI$PRESENT, SYS$DELLOG
0015    C
0016    	INCLUDE 'CTSDEF'
0059    	INCLUDE '($SSDEF)'
0450    C
0451    	IF (CLI$PRESENT('NAME')) THEN
0452    	  CALL CLI$GET_VALUE('NAME',LOG_NAM)
0453    	ELSE
0454    	  CALL LIB$GET_INPUT(LOG_NAM,'Logical name: ',)
0455    	END IF
0456    	CALL STR$UPCASE(LOG_NAM,LOG_NAM)
0457    	CALL STR$TRIM(LOG_NAM,LOG_NAM,LOG_NAM_LEN)
0458    C
0459    	READ (1,KEYEQ=LOG_NAM,KEYID=0,ERR=89000) CAMDEF_RECORD
0460    	DELETE (1)
0461    	ISTAT = SYS$DELLOG(%VAL(0),LOG_NAM(1:LOG_NAM_LEN),)
0462    	IF (.NOT. ISTAT) CALL REPORT(' ', ISTAT)
0463    	GOTO 90000
0464    C
0465    89000	TYPE *, 'CTS-E-NOMATCH, no logical name match'
0466    C
0467    90000	RETURN
0468    	END

DEASGN                         					 7-Jan-1983 13:28:47	VAX-11 FORTRAN V3.1-23              Page   2
								 3-Jan-1983 16:02:05	SYS$SYSROOT:[CAMAC.CTS]CTSDEASGN.FOR;9      

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  169   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  1 $PDATA                                  58   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG
  2 $LOCAL                                 328   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG

    Total Space Allocated                  555


ENTRY POINTS

    Address  Type  Name          

  0-00000000       DEASGN        


VARIABLES

    Address  Type  Name                                Address  Type  Name                            

  2-00000010  CHAR CAMDEF_RECORD                     2-00000045  CHAR COMMENT                         
  2-00000039  CHAR CR_COLON                          2-00000034  CHAR CSU                             
  2-00000036  CHAR CSU_CONTROLLER                    2-00000034  CHAR CSU_DEVICE                      
  2-000000A8  CHAR CSU_NAME                          2-00000037  CHAR CSU_UNIT                        
  2-000000B0  I*4  ISTAT                             2-00000010  CHAR LOGICAL_NAME                    
  2-00000088  CHAR LOG_NAM                           2-000000AE  I*2  LOG_NAM_LEN                     
  2-00000000  I*4  PM_RUG                            2-00000004  I*4  PM_RUM                          
  2-0000000C  I*4  PM_STATION                        2-00000008  I*4  PM_UNIT                         
  2-0000003D  I*4  REF_UIC_GROUP                     2-00000041  I*4  REF_UIC_MEMBER                  
  2-00000034  CHAR SPECIFIER                         2-0000003A  CHAR STATION                         


ARRAYS

    Address  Type  Name                Bytes  Dimensions

  2-00000000  I*4  PHY_MOD                16  (4)


LABELS

    Address   Label       Address   Label   

  0-0000008C  89000     0-000000A8  90000   


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name            Type  Name            Type  Name            Type  Name            Type  Name            Type  Name          

        CLI$GET_VALUE    I*4  CLI$PRESENT           LIB$GET_INPUT         REPORT                STR$TRIM              STR$UPCASE    
   I*4  SYS$DELLOG    

DEASGN                         					 7-Jan-1983 13:28:47	VAX-11 FORTRAN V3.1-23              Page   3
								 3-Jan-1983 16:02:05	SYS$SYSROOT:[CAMAC.CTS]CTSDEASGN.FOR;9      

COMMAND QUALIFIERS

  FORTRAN /LIS CTS,CTSASSIGN,CTSDEASGN,CTSMODIFY,CTSSET,CTSSHOW,WCCOPY,WCMATCH

  /CHECK=(NOBOUNDS,OVERFLOW,NOUNDERFLOW)
  /DEBUG=(NOSYMBOLS,TRACEBACK)
  /STANDARD=(NOSYNTAX,NOSOURCE_FORM)
  /SHOW=(NOPREPROCESSOR,NOINCLUDE,MAP)
  /F77  /NOG_FLOATING  /I4  /OPTIMIZE  /WARNINGS  /NOD_LINES  /NOCROSS_REFERENCE  /NOMACHINE_CODE  /CONTINUATIONS=19


COMPILATION STATISTICS

  Run Time:           2.30 seconds
  Elapsed Time:       2.73 seconds
  Page Faults:        12
  Dynamic Memory:     340 pages
