public inbox for gentoo-commits@lists.gentoo.org
 help / color / mirror / Atom feed
* [gentoo-commits] gentoo-x86 commit in sci-chemistry/gamess/files: gamess-qmmm-tinker-fix-idate.patch
@ 2010-12-07 23:53 Alexey Shvetsov (alexxy)
  0 siblings, 0 replies; only message in thread
From: Alexey Shvetsov (alexxy) @ 2010-12-07 23:53 UTC (permalink / raw
  To: gentoo-commits

alexxy      10/12/07 23:53:39

  Added:                gamess-qmmm-tinker-fix-idate.patch
  Log:
  [sci-chemistry/gamess] Make neo optional also fix qmmm compilation
  
  (Portage version: 2.2.0_alpha7_p1/cvs/Linux x86_64)

Revision  Changes    Path
1.1                  sci-chemistry/gamess/files/gamess-qmmm-tinker-fix-idate.patch

file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/sci-chemistry/gamess/files/gamess-qmmm-tinker-fix-idate.patch?rev=1.1&view=markup
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/sci-chemistry/gamess/files/gamess-qmmm-tinker-fix-idate.patch?rev=1.1&content-type=text/plain

Index: gamess-qmmm-tinker-fix-idate.patch
===================================================================
diff -urN gamess/tinker.orig/Libtad.f gamess/tinker/Libtad.f
--- gamess/tinker.orig/Libtad.f	2010-05-12 21:41:56.000000000 +0400
+++ gamess/tinker/Libtad.f	2010-12-08 01:05:31.000000000 +0300
@@ -1332,11 +1332,15 @@
 c     and for Macintosh under Absoft Pro Fortran 5.0
 c
       integer hms(3)
+      integer tarray(3)
       call itime (hms)
       hour = hms(1)
       minute = hms(2)
       second = hms(3)
-      call idate (month,day,year)
+      call idate (tarray)
+      month = tarray(1)
+      day = tarray(2)
+      year = tarray(3)
 c
 c     code for IBM RS/6000 under AIX appends an underscore
 c






^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~2010-12-07 23:53 UTC | newest]

Thread overview: (only message) (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2010-12-07 23:53 [gentoo-commits] gentoo-x86 commit in sci-chemistry/gamess/files: gamess-qmmm-tinker-fix-idate.patch Alexey Shvetsov (alexxy)

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox