27-Dec-1987 12:59:04	VAX FORTRAN V4.5-219                Page   1
								27-Dec-1987 12:58:53	USER$LIB:[SXES_SOURCE.CALENDAR]DPAGE.FOR;3  

0001     
0002    	SUBROUTINE DPAGE(IUNIT,PAGE,ROW,COL)
0003    	
0004    	CHARACTER*(*)	PAGE(*)
0005    	INTEGER		IUNIT,ROW,COL,I,IDOT,ILEN,INOTE
0006     
0007    	INOTE = 0
0008    	DO 150 I = 1,ROW
0009    	    IF (index(PAGE(I),'!>') .ne. 0) then 
0010    		INOTE   = 1
0011    		idot    = index(PAGE(I),'!>')
0012    		ilen    = len(PAGE(I))
0013    		PAGE(I)(1:ilen-2) = PAGE(I)(1:(idot-1))//
0014         &	                                PAGE(I)((idot+2):ilen)//'  '
0015    		endif
0016     
0017    	    WRITE(IUNIT,2000)' ',PAGE(I)
0018    	    IF (INOTE .ne. INOTE) Then
0019    		WRITE(IUNIT,2000)'+',PAGE(I)
0020    		INOTE = 0
0021    		ENDIF
0022     
0023     150	CONTINUE
0024     2000	FORMAT(A1,A80)
0025    	WRITE(IUNIT,2100)CHAR(12)
0026     2100	FORMAT(A1)
0027     
0028    	RETURN
0029     
0030    	End

DPAGE                          					27-Dec-1987 12:59:04	VAX FORTRAN V4.5-219                Page   2
								27-Dec-1987 12:58:53	USER$LIB:[SXES_SOURCE.CALENDAR]DPAGE.FOR;3  

PROGRAM SECTIONS

    Name				 Bytes   Attributes

  0 $CODE                                  344   PIC CON REL LCL   SHR   EXE   RD NOWRT LONG
  1 $PDATA                                  14   PIC CON REL LCL   SHR NOEXE   RD NOWRT LONG
  2 $LOCAL                                 104   PIC CON REL LCL NOSHR NOEXE   RD   WRT LONG

    Total Space Allocated                  462


ENTRY POINTS

    Address  Type  Name          

  0-00000000       DPAGE         


VARIABLES

    Address  Type  Name              Address  Type  Name              Address  Type  Name              Address  Type  Name          

 AP-00000010@ I*4  COL             2-00000000  I*4  I                   **      I*4  IDOT                **      I*4  ILEN          
  2-00000004  I*4  INOTE          AP-00000004@ I*4  IUNIT          AP-0000000C@ I*4  ROW           


ARRAYS

    Address  Type  Name                Bytes  Dimensions

 AP-00000008@ CHAR PAGE                   **  (*)


LABELS

    Address   Label       Address   Label       Address   Label   

      **      150       1-00000006  2000'     1-0000000B  2100'   


FUNCTIONS AND SUBROUTINES REFERENCED

  Type  Name          

   I*4  LIB$INDEX     

DPAGE                          					27-Dec-1987 12:59:04	VAX FORTRAN V4.5-219                Page   3
								27-Dec-1987 12:58:53	USER$LIB:[SXES_SOURCE.CALENDAR]DPAGE.FOR;3  

COMMAND QUALIFIERS

  FOR/LIS DPAGE

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


COMPILATION STATISTICS

  Run Time:           1.61 seconds
  Elapsed Time:       3.88 seconds
  Page Faults:        667
  Dynamic Memory:     462 pages