Hi,
Thanks for that patch, it's more elegant than how I hacked out those
particular common blocks to modules. However, the comon blocks below
still cause errors
In dBaseDeclarations.F90
common /floats/ time, dt, dtold, redshift, oldredshift
common /intgrs/ nstep, nbegin, MyPE, MasterPE, NumPEs
As far as I know they only again show up in the PARAMESH files
batchsend.F90
batchsend_dbl.F90
I replaced these with two new modules in the database, and placed the
appropriate USE statements in everything that used them. Please find
the source files common_intgrs.F90 and common_floats.F90 attached.
-Colin McNally
McMaster University
Andrew Siegel wrote:
>
>On Fri, 5 Jul 2002, Colin McNally wrote:
>
>>Hi,
>> I have had to hack out some of the FORTRAN common blocks in PARAMESH
>>that were used by the dataBase module into common blocks to make Compaq
>>Tru64 Fortran compile FLASH (intgrs, floats,tree,solution_cc). It is
>>possible that my modifications have messed something up.
>> The issue is that when a common block is defined by Paramesh and is
>>used in a dBase module and then a name in the common block is in the
>>ONLY specification of a USE statement the compag compiler, for example goes:
>>
>
>Yes, this is caused by a bug on the Tru64 compiler that was supposed to be
>fixed in version 5.2. I'm not sure what the status is, but we've put
>together a quick patch that should workaround any versions that have this
>problem. You can download a trial version of the patch now from
>http://flash.uchicago.edu/~siegela/CompaqPatch.tar
>
>We are still a few weeks away from fully testing our code on a Compaq
>cluster. Until then, I can't gaurantee that this patch will solve all of
>the Compaq problems. It certainly works around the one you point out, but
>it's possible there are others. In several weeks, we will be running our
>full test suite nightly on a tru64 cluster. In the meantime, this is all
>we can offer.
>
>To run the patch, copy the .tar to your $FLASH_HOME directory. Then do
>
>tar xvf CompaqPatch.tar
>./runpatch
>
>Please let me know of any problems.
>
>regards, andrew siegel
>
>
>
>
!A module to replace the intgrs common block
!Colin McNally 13/5/02 McMaster
!
!The Compaq F90 compiler dosn;t like poeple refrecing with an USE ONLY a part
!of a common block that is in a module(common->module->use only).
! The dBase routines did this with the
!intgr block, so I changed it into a module(module->modules->use only).
!
Module intgrs
implicit none
integer :: nstep, nbegin, MyPE, MasterPE, NumPEs
end module intgrs
!A modules to replace the floats common block
!Colin McNally 13/05/02 McMaster
!
!
module floats
implicit none
real :: time, dt, dtold
real :: redshift, oldredshift
end module floats
This archive was generated by hypermail 2b30 : Fri Jul 05 2002 - 16:39:10 CDT