Re: your mail

From: Valery Fine (fine@bnl.gov)
Date: Tue Dec 08 1998 - 02:15:45 MET


On  5 Dec 98 at 11:54, Canguo Li wrote:

> Date:          Sat, 5 Dec 1998 11:54:50 +0800 (EAT)
> From:          Canguo Li <licg@hpws7.ihep.ac.cn>
> To:            fine@mail.cern.ch
> Cc:            roottalk@hpsalo.cern.ch
> Subject:       Re: your mail

>    On HP, I compiled my Geant3.21 application(written in Fortran)
>    without
> adding-post-pending-underscore, then I call CernLib and Geant3
> subroutines by explicitly adding the postpending underscores. I
> think this makes my application's more readable and robust. However,
> when I tried to port this application to RedHat Linux on PC, where
> the fortran compilers are fort77 and g77, I couldn't find the option
> to compile without adding postpending underscore(which should have
> been the default for any fortran compiler?). 
> 
>  Do you or any Rooter happen to know the trick? Thanks in advance.


 It seems to me very this kind of the trick I mentioned, namely via 
that small F77_NAME macro we define

#define ffread_ F77_NAME(ffread,FFREAD)

This macro for the different platforms does supply:

   1. ffread_ as ffread_
   2. ffread_ as ffread
   3. ffread_ as FFREAD

  but within your source you are still using your "more readable 
and robust" form, namely 

                   ffread_( . . . )

 Actually at this place you have no deal with any compiler just with 
C/C++ pre-processing only.

                                 Valery

=================================================================
Dr. Valeri Faine (Fine)
    -------------------          Phone: +1 516 344 7806
Brookhaven National Laboratory   FAX  : +1 516 344 4206
Bldg. 510A /STAR                 mailto:fine@bnl.gov
Upton, New York, 11973-5000      http://nicewww.cern.ch/~fine
USA
                                 
Dr. Valery Fine                  Telex : 911621 dubna su
    -----------
LCTA/Joint Inst.for Nuclear Res. Phone : +7 09621 6 40 80
141980 Dubna, Moscow region      Fax   : +7 09621 6 51 45
Russia                           mailto:fine@main1.jinr.dubna.su                              



This archive was generated by hypermail 2b29 : Tue Jan 04 2000 - 00:34:40 MET