From 0f3556420c3b69c7179d57afcc317096c4defa0e Mon Sep 17 00:00:00 2001 From: Maho Nakata Date: Fri, 19 Jan 2007 02:19:06 +0000 Subject: Forgot to commit a patch. Fixes build. Submitted by: kris via pointyhat. --- biology/psi88/files/patch-psi2.f | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 biology/psi88/files/patch-psi2.f diff --git a/biology/psi88/files/patch-psi2.f b/biology/psi88/files/patch-psi2.f new file mode 100644 index 000000000000..f5069f8a9b2f --- /dev/null +++ b/biology/psi88/files/patch-psi2.f @@ -0,0 +1,20 @@ +--- src/psi2.f~ Sat May 25 03:50:01 1991 ++++ src/psi2.f Tue Jan 16 13:40:36 2007 +@@ -175,7 +175,7 @@ + C + SUBROUTINE DRAMOL (C,NAT,IAN,TITLE,CO,THE,GAM,PHI,CM,PERZ,SCALE, + * INIT,IATSYM,IATSMN) +- COMMON /MIN/ YMOLMN ++ COMMON /MINPSI88/ YMOLMN + COMMON /BONDS/ NBND,IB,IC + DIMENSION C(1024,3),IAN(60),IATSMN(60),CO(3),NCHAR1(18) + DIMENSION IB(35),IC(35),BX(4),BY(4),COVRAD(18) +@@ -468,7 +468,7 @@ + COMMON /DLT/ YINT(75000),SLPINV(75000),PLANES(1024,3),NCHID + COMMON /POINTS/ AC(75000,3) + COMMON /HLCOM/ NAC,NBEG,ACMIN,ACMAX +- COMMON /MIN/ YMOLMN ++ COMMON /MINPSI88/ YMOLMN + COMMON /RPLOT/ N,CO(3),CM,THE,GAM,PHI,X(1024),Y(1024),Z(1024), + * IDASH,SCALE,PERZ + CHARACTER*(*) SUBT -- cgit v1.2.3