********> bugfix.35
Author:   Bill Ross
Date:     8/23/95

Programs: Gibbs

Severity: slight

Problem:  -O option doesn't work with PATNRG files.

Cause:    Forgot to implement


Fix:  Make the following change to gibbs/mdread.f (note: a partial
      fix exists in files distributed over the last few months, but
      instead of 'cstatus' the name 'istatus' is used, in which case
      the fix is to change istatus->cstatus.)
-----------------------------------------------------------------------
*** OLD mdread.f
--- NEW mdread.f
***************
*** 72,77
        CHARACTER*8 FNAMES(17)
        CHARACTER*4 DIRECO,WATDEF(4)
        CHARACTER*4 WATNAM,OWTNM,HWTNM1,HWTNM2
        LOGICAL BELLY,KONST
  C
  #include "files.h"

--- 72,78 -----
        CHARACTER*8 FNAMES(17)
        CHARACTER*4 DIRECO,WATDEF(4)
        CHARACTER*4 WATNAM,OWTNM,HWTNM1,HWTNM2
+       character cstatus
        LOGICAL BELLY,KONST
  C
  #include "files.h"
***************
*** 697,702
  C ------------------------------------
  C Possible file opens, based on options set:
  C
        IF (IPERAT.GT.0) THEN
          IF (IOUTFM.EQ.0) THEN
             CALL AMOPEN(ILGAUN,FILES(14),'N','F','W')

--- 698,707 -----
  C ------------------------------------
  C Possible file opens, based on options set:
  C
+ C     PATNRG:
+ C
+       cstatus = 'N'
+       if (OWRITE.eq.'UNKNOWN') cstatus = 'U'
        IF (IPERAT.GT.0) THEN
          IF (IOUTFM.EQ.0) THEN
             CALL AMOPEN(ILGAUN,FILES(14),cstatus,'F','W')
***************
*** 699,705
  C
        IF (IPERAT.GT.0) THEN
          IF (IOUTFM.EQ.0) THEN
!            CALL AMOPEN(ILGAUN,FILES(14),'N','F','W')
          ELSE
             CALL AMOPEN(ILGAUN,FILES(14),'N','U','W')
          END IF

--- 704,710 -----
        if (OWRITE.eq.'UNKNOWN') cstatus = 'U'
        IF (IPERAT.GT.0) THEN
          IF (IOUTFM.EQ.0) THEN
!            CALL AMOPEN(ILGAUN,FILES(14),cstatus,'F','W')
          ELSE
             CALL AMOPEN(ILGAUN,FILES(14),cstatus,'U','W')
          END IF
***************
*** 701,707
          IF (IOUTFM.EQ.0) THEN
             CALL AMOPEN(ILGAUN,FILES(14),'N','F','W')
          ELSE
!            CALL AMOPEN(ILGAUN,FILES(14),'N','U','W')
          END IF
        END IF
  C

--- 706,712 -----
          IF (IOUTFM.EQ.0) THEN
             CALL AMOPEN(ILGAUN,FILES(14),cstatus,'F','W')
          ELSE
!            CALL AMOPEN(ILGAUN,FILES(14),cstatus,'U','W')
          END IF
        END IF
  C
-----------------------------------------------------------------------

Temporary workarounds: use 'rm -f' to delete old PATNRG files, as
			with previous versions of AMBER.

--