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