********> bugfix.55
Author: Bill Ross
Date:   3/10/93

Programs: PREP, LINK, EDIT, PARM, 
          on Unix tapes made in late February / early March.

Severity: Moderate

Problem:  Cannot compile, routine _closc() missing.

Cause:    Changes made for VM/CMS operating system affected Unix compilation.

Fix:  IF 'grep closc amopen.f' results in any lines with closc,
      make the following changes to lib/amopen.f

*** OLD amopen.f
--- NEW amopen.f
***************
*** 107,113 ****
  #endif
  c
        if (ios .ne. 0) then
!            call closc(lun)
             if (lun .eq. 6)  then
  c               this is the only place outside of mexit() where a stop
  c               stmt should occur
--- 107,117 ----
  #endif
  c
        if (ios .ne. 0) then
! #ifdef IBM3090
!            if (lun.ne.6) close(unit=lun)
! #else
!            close(unit=lun)
! #endif
             if (lun .eq. 6)  then
  c               this is the only place outside of mexit() where a stop
  c               stmt should occur
***************
*** 170,176 ****
  #endif
             else
                  write(6,'(/,2x,a,a)') 'Error on OPEN: ',fname
!                 call closc(6)
  #ifndef DUMB
                  write(0,'(/,2x,a,a)') 'Error on OPEN: ',fname
  #endif
--- 174,180 ----
  #endif
             else
                  write(6,'(/,2x,a,a)') 'Error on OPEN: ',fname
!                 close(unit=6)
  #ifndef DUMB
                  write(0,'(/,2x,a,a)') 'Error on OPEN: ',fname
  #endif

----------------
Temporary workarounds: None.

Routines affected: amopen