Re: F2CL under LWW a few warnings

On Aug 12, 2004, at 10:15 AM, Raymond Toy wrote:

>>>>>> "Marco" == Marco Antoniotti <[email protected]> writes:
>
>     Marco> Note that the instruction in the opkdmain.f file itself 
> state that
>     Marco> COMMON blocks should be treated specially, but mu Fortran 
> is too weak
>     Marco> to understand that comment.
>
> I looked around a little and I think this is the "true" definition of
> the common block dls001
>
>       COMMON /DLS001/ CONIT, CRATE, EL(13), ELCO(13,12),
>      1   HOLD, RMAX, TESCO(3,12),
>      2   CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND,
>      3   IOWND(6), IALTH, IPUP, LMAX, MEO, NQNYH, NSLP,
>      3   ICF, IERPJ, IERSL, JCUR, JSTART, KFLAG, L,
>      4   LYH, LEWT, LACOR, LSAVF, LWM, LIWM, METH, MITER,
>      5   MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU
>
> There are some places where it's defined
>
>       COMMON /DLS001/ ROWNS(209),
>      1   CCMAX, EL0, H, HMIN, HMXI, HU, RC, TN, UROUND,
>      2   IOWND(6), IOWNS(6),
>      3   ICF, IERPJ, IERSL, JCUR, JSTART, KFLAG, L,
>      4   LYH, LEWT, LACOR, LSAVF, LWM, LIWM, METH, MITER,
>      5   MAXORD, MAXCOR, MSBP, MXNCF, N, NQ, NST, NFE, NJE, NQU
>
> and I think if you replace rowns(209) here with
>
>      CONIT, CRATE, EL(13), ELCO(13,12), HOLD, RMAX, TESCO(3,12)
>
> you would get something that works.
>
> There are also a few places where the block is given as
>
>       COMMON /DLS001/ RLS(218), ILS(37)
>
> You will have to replace that with the "true" one above, and modify
> the code to do the right thing.
>
> This looks reasonably straightforward to do, but rather tedious.

Let me understand.  Basically you say that I need to use the "true" 
defstruct and modify the lisp code in such a way that e.g.

	(setf (aref (dsl001-iowns *dsl001-common*) 0) <foo>)
==>
	(setf (dsl001-ialth *dsl001-common*) <foo>)

?  (sorry if the above is not all that correct; you get the idea)

It is tedious, but it can be done.

Thanks

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