From b9839907f41145f63ec257047605012b11b0553b Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Mon, 25 Apr 2016 23:01:00 +0200 Subject: [PATCH] AIX xdrfint_ --- source/unres/src_MD-M/MREMD.F | 4 ++-- source/unres/src_MD/MREMD.F | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/source/unres/src_MD-M/MREMD.F b/source/unres/src_MD-M/MREMD.F index 66532d0..852d74e 100644 --- a/source/unres/src_MD-M/MREMD.F +++ b/source/unres/src_MD-M/MREMD.F @@ -1501,8 +1501,8 @@ c end debugging call xdrfint_(ixdrf, nss, iret) do j=1,nss if (dyn_ss) then - call xdrfint(ixdrf, idssb(j)+nres, iret) - call xdrfint(ixdrf, jdssb(j)+nres, iret) + call xdrfint_(ixdrf, idssb(j)+nres, iret) + call xdrfint_(ixdrf, jdssb(j)+nres, iret) else call xdrfint_(ixdrf, ihpb(j), iret) call xdrfint_(ixdrf, jhpb(j), iret) diff --git a/source/unres/src_MD/MREMD.F b/source/unres/src_MD/MREMD.F index 743cc8f..c440bb7 100644 --- a/source/unres/src_MD/MREMD.F +++ b/source/unres/src_MD/MREMD.F @@ -1705,8 +1705,8 @@ ctime call flush(iout) call xdrfint_(ixdrf, nss, iret) do j=1,nss if (dyn_ss) then - call xdrfint(ixdrf, idssb(j)+nres, iret) - call xdrfint(ixdrf, jdssb(j)+nres, iret) + call xdrfint_(ixdrf, idssb(j)+nres, iret) + call xdrfint_(ixdrf, jdssb(j)+nres, iret) else call xdrfint_(ixdrf, ihpb(j), iret) call xdrfint_(ixdrf, jhpb(j), iret) -- 1.7.9.5