AMBER Archive (2009)

Subject: Re: [AMBER] problem building sander.apbs

From: case (case_at_biomaps.rutgers.edu)
Date: Mon Sep 21 2009 - 06:39:41 CDT

On Mon, Sep 21, 2009, Oliver Kuhn wrote:

> IF (apbs_debug > 1) WRITE(6, '(a, i)') ' iAPBS> apbs return code: ', rc
> 1
> Error: Nonnegative width required in format string at (1)

For some compilers, you have to put a digit before the "i" in the format
string. Here is a patch:

diff -u -r10.1 apbs.f
--- apbs.f 22 Aug 2009 02:18:15 -0000 10.1
+++ apbs.f 21 Sep 2009 11:37:47 -0000
@@ -576,7 +576,7 @@
          apbsqfx, apbsqfy, apbsqfz, apbsibx, apbsiby, apbsibz, &
          apbsnpx, apbsnpy, apbsnpz, apbsdbx, apbsdby, apbsdbz)
 
- IF (apbs_debug > 1) WRITE(6, '(a, i)') ' iAPBS> apbs return code: ', rc
+ IF (apbs_debug > 1) WRITE(6, '(a, 6i)') ' iAPBS> apbs return code: ', rc
     IF (rc > 0) THEN
        WRITE(6, '(a)') 'iAPBS Bomb: apbs failed'
        CALL mexit(6,1)
@@ -799,7 +799,7 @@
             apbsnpx, apbsnpy, apbsnpz, apbsdbx, apbsdby, apbsdbz)
 
 
- IF (apbs_debug > 2) WRITE(6, '(a, i)') &
+ IF (apbs_debug > 2) WRITE(6, '(a, 6i)') &
             'iAPBS: apbs return code: ', rc
        IF (rc > 0) THEN
           WRITE(6, '(a)') 'iAPBS Bomb: apbs failed'
@@ -872,7 +872,7 @@
             apbsqfx, apbsqfy, apbsqfz, apbsibx, apbsiby, apbsibz, &
             apbsnpx, apbsnpy, apbsnpz, apbsdbx, apbsdby, apbsdbz)
 
- IF (apbs_debug > 2) WRITE(6, '(a, i)') &
+ IF (apbs_debug > 2) WRITE(6, '(a, 6i)') &
             'iAPBS: apbs return code: ', rc
        IF (rc > 0) THEN
           WRITE(6, '(a)') 'iAPBS Bomb: apbs failed'

...dac

_______________________________________________
AMBER mailing list
AMBER_at_ambermd.org
http://lists.ambermd.org/mailman/listinfo/amber