Showing posts with label porting. Show all posts
Showing posts with label porting. Show all posts
Friday, December 17, 2010
amber11 pmemd + LAM-7,1,4/torque
The default optimization flag for pmemd.MPI is -fast, which causes some trouble in our cluster since the torque library doesn't like -static at all. You might already know that -fast is equivalent to "-xHOST -O3 -ipo -no-prec-div -static". My suggestion is to use "-axSTP -O3 -ipo -no-prec-div" instead. The reason for that is compatibility, -xHost also isn't a good optimization flag either. All processors in our cluster are not exactly the same, -xHost is just adding a possibility to mess with.
Sunday, June 18, 2006
gettim and secnds in FORTRAN
If you are porting fortran program from old Microsoft Visual Fortran, you might find this useful. I believe these two function calls (gettim and secnds) are from PDP-11 (perhaps). Let me write down my bridge of these two to gfortran.
subroutine secnds(T) real*8 :: t, tnow real*8 :: myclock tnow = myclock t = tnow - t return end subroutine secnds !------------------------------------------------------------------------------ subroutine gettim(ih,imin,isec,iif) character(len=13) cd, ct, cz integer :: ih, imin, isec, iif integer, dimension(8) :: iv(8) cd=' ' ct=cd cz=cd call date_and_time(cd,ct,cz,iv) ih=iv(5) imin=iv(6) isec=iv(7) iif=iv(8) return end subroutine gettim !------------------------------------------------------------------------------ real*8 function myclock() character(len=13) cd, ct, cz integer, dimension(8) :: iv(8) integer :: iclock cd=' ' ct=cd cz=cd CALL DATE_AND_TIME(cd,ct,cz,iv) iclock = 86400*iv(3)+3600*iv(5)+60*iv(6)+iv(7) myclock = dble(iclock)+1.0d-3*dble(iv(8)) end function myclock
Subscribe to:
Posts (Atom)