Fix output descriptors of c_{s,d,c,z}blat3
authorSébastien Villemot <sebastien@debian.org>
Mon, 11 Jan 2016 10:22:17 +0000 (11:22 +0100)
committerSébastien Villemot <sebastien@debian.org>
Mon, 11 Jan 2016 10:22:17 +0000 (11:22 +0100)
commit04ad946fc8f34dcf02dd00efb3120fad15d977fc
treeb9f12fe5f091434b8a1b134b2b78f8822ff5368d
parentf704b8d32f4cec59fab550f8dbf7e57ab0fd6865
Fix output descriptors of c_{s,d,c,z}blat3

The NTRA argument can be equal to -1 if one does not want a snapshot file
(and this is the case with sample data {s,d,c,z}in3).
The routines {S,D,C,Z}PRCN3 will try to use their first argument as an output
unit number, so we avoid calling them when NTRA < 0.

Patch originally written by Camm Maguire.
ctest/c_cblat3.f
ctest/c_cblat3_3m.f
ctest/c_dblat3.f
ctest/c_sblat3.f
ctest/c_zblat3.f
ctest/c_zblat3_3m.f