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.ambermd.org
http://lists.ambermd.org/mailman/listinfo/amber
Received on Mon Sep 21 2009 - 05:00:02 PDT
