* Last processed by NICE on 12-Jun-2000 15:51:00
* Customized for :  IEEE, LINUX, UNIX, MOTIF, F77
*
* This version of PSC has been modified to output a listing with the following
* information: Name F12 F25 F60 F100 LRSTYPE.
*
      SUBROUTINE WRITE_SOURCE(ERROR)
C-----------------------------------------------------------------------------
C PSC
C	Write and format source information
C-----------------------------------------------------------------------------
      LOGICAL ERROR
      INCLUDE 'description.inc'
      INCLUDE 'psc.inc'
      INCLUDE 'inc:pi.inc'
*
      REAL*8 DRA,DDEC
*
      INTEGER RA1,RA2,DEC1,DEC2
      CHARACTER SIGN*1
*
      INTEGER NSOURCE
*
* Write source information
      DRA  = DBLE(RA)
      DDEC = DBLE(DEC)
      RA1 = INT(DRA/PI*12.)
      DRA = DRA-RA1*PI/12.
      RA2 = INT(DRA/PI*12.*600)
      IF (DDEC.GE.0) THEN
         SIGN = '+'
      ELSE
         SIGN = '-'
         DDEC = -DDEC
      ENDIF
      DEC1 = INT(DDEC/PI*180.)
      DDEC = DDEC-DEC1*PI/180.
      DEC2 = INT(DDEC/PI*180.*60)
*
      WRITE (LIST_LUN, 100, ERR=99)
     $RA1,RA2,SIGN,DEC1,DEC2,
     $FLUX(1),FLUX(2),FLUX(3),FLUX(4),
     $LRSCHAR
100   FORMAT(1X,I2.2,I3.3,A1,I2.2,I2.2,2X,4(1X,E9.3),2X,A2)
      RETURN
99    ERROR = .TRUE.
      RETURN
*
      ENTRY WRITE_IDENTIFICATION (ERROR)
C-----------------------------------------------------------------------------
C PSC
C	Decodes and format information for one identification
C-----------------------------------------------------------------------------
      RETURN
      END