Re: F2CL under LWW a few warnings

Marco Antoniotti <[email protected]> Wed, 11 Aug 2004 15:01:35 -0400
Newsgroups gmane.lisp.clocc.general
Message-ID <[email protected]>
On Aug 11, 2004, at 2:44 PM, Raymond Toy wrote:

>>>>>> "Marco" == Marco Antoniotti <[email protected]> writes:
>
>     Marco> I'll do an update, but I had already made the work around.
>
>     Marco> I am getting a lot of warnings with LWW.   I'll keep you 
> posted.
>
>     Marco> One immediate thing you can tell me is how to handle the 
> common
>     Marco> blocks. I issue the following commands
>
> [snip]
>
>     Marco> When exactly should I add the :declare-common t
>
> This depends on the fortran file, but if opkda1.f has definitions of
> all the common blocks that are used, then you can :declare-common t
> here.  What it does is define the structure for the elements in the
> common block and also defines *dsl001-common-block*.  The remaining
> files won't need it, if you load the first file before the others so
> the common block is defined.


I have a problem.

Trying to set :declare-common t in all the files, I see that the 
definition of the common blocks (the DEFSTRUCTS) are different.
Not all fields are generated all the time.

If I try to selectively :declare-common t, then I get errors stating 
that this or that function is undefined.

Any suggestion?

Note that the instruction in the opkdmain.f file itself state that 
COMMON blocks should be treated specially, but mu Fortran is too weak 
to understand that comment.

Cheers

Marco


--
Marco Antoniotti					http://bioinformatics.nyu.edu
NYU Courant Bioinformatics Group		tel. +1 - 212 - 998 3488
715 Broadway 10th FL				fax. +1 - 212 - 998 3484
New York, NY, 10003, U.S.A.



-------------------------------------------------------
SF.Net email is sponsored by Shop4tech.com-Lowest price on Blank Media
100pk Sonic DVD-R 4x for only $29 -100pk Sonic DVD+R for only $33
Save 50% off Retail on Ink & Toner - Free Shipping and Free Gift.
http://www.shop4tech.com/z/Inkjet_Cartridges/9_108_r285