AMBER: mdfil.f

From: Peljidiyn Genden <peljidiyn_genden.yahoo.com>
Date: Sat, 14 Apr 2007 00:43:27 -0700 (PDT)

Jagshemash! [sacred Mongolian word meaning "Hello
everybody, nice to meet you again!"]

it is well known here in Mongolia that FORTRAN is a
unique language
in many ways; in particular, FORTRAN (unlike any other
language in
the visible part of our Universe) does not evaluate
boolean
expressions is some definite order; therefore there
are (at least)
2 (more) errors in mdfil.f submodule of SANDER module
of AMBER; see below

--- src/sander/mdfil.f
+++ src/sander/mdfil.f
.. -299,8 +299,9 .. integer function iargc_wrap()
          else
             is = istart
             ie = istart
- do while ( ie <= iend .and. &
- groupbuffer(ie:ie) /= ' ' )
+ do while ( ie <= iend)
+ if (groupbuffer(ie:ie) == ' ' ) &
+ exit
                ie = ie + 1
             end do
             ia = ia + 1
.. -349,8 +350,9 .. subroutine getarg_wrap(iarg, arg)
 
             is = istart
             ie = istart
- do while ( ie <= iend .and. &
- groupbuffer(ie:ie) /= ' ' )
+ do while ( ie <= iend )
+ if (groupbuffer(ie:ie) == ' ') &
+ exit
                ie = ie + 1
             end do
             ia = ia + 1

Excuse me please for the so brief message - I have to
run - Mongolian
born Kazaki superstar Korki Buchek sings today in the
Mongolian
national academie theater of opera and ballet
(Ulaanbaatar, Mongol Uls).

Yours,
  Peljidiyn Genden


 sef w==.$.# =.$3 23 .#$.= 234.# ++ 234 24
--))(()((-==wqer

       Peljidiyn Genden, Ph. D., MD, FD, and OP
             Ministry Of FORTRAN Affairs
               Ulaanbaatar, Mongol Uls

   [phone/fax are prohibited in our department to
prevent
        us from spreading the insanity over the wires]

 966 0wr wer er == ___ 34 r5234 === 2345 2=--- 234
---=====


__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com

-----------------------------------------------------------------------
The AMBER Mail Reflector
To post, send mail to amber.scripps.edu
To unsubscribe, send "unsubscribe amber" to majordomo.scripps.edu
Received on Sun Apr 15 2007 - 06:07:50 PDT
Custom Search