Conference turris::fortran

1328.0. "Help with port?" by BIGRED::THOMPSON (Texan 'til I die) Tue Jun 03 1997 10:43

    I've been looking through the note files and the Web pages and I
    haven't come across information that would help me port parallel
    directives from Fortran code on a VAX to Fortran code on Digital Unix.
    Specifically, I'm looking for info on how to modify these lines so it
    will run on an SMP Alpha system under Unix.  We are actually trying to
    port code from a Sun system to Digital Unix - the first step was trying
    to figure out how it works and get it to compile.  We were having
    better luck on the VAX... until it came time to link and I didn't have
    the equivalence of some of the unix system calls!
    
    Thanks!
    
    Patti
    
    
    
    cpar$ do_parallel
    cpar$&  shared( Image ),
    cpar$&  private( tt_crnrs, tt_patch, ct_patch, ds2, dr2, dm2,
    cpar$&           samp1, dxm2, dym2, dbin, Kp1, ct, tt, ith ),
    cpar$&  readonly( trace, tt_shot, tt_recv, thread_number,
    cpar$&            bzz, zz, bvm2, jy, mx, my, xi, yi, wt,
    cpar$&            btan2, dx_bin2, dy_bin2, rscaling, aalias,
    cpar$&            numoff, apermx2, beta, trcheck, shooty, bintype,
    cpar$&            bdxs, bdys, bdzm, bnzp, mxmy, endtime,
    cpar$&            zero, half, one, big, multx1, multy1,
    cpar$&            isrf1, jsrf1, nsrfx, nsrfy, mnxy, nzp,
    cpar$&            ishtx, ishty, ircvx, ircvy, idead, imute, ioffb,
    cpar$&            nz_wrk, x0_surf, y0_surf, nsamp, nhead ),
    cpar$&  reduction( fktr, fktr1 ),
    cpar$&  schedtype( self(1) )
          do n = 1, ntraces
    
         
    .....
    
    etc.
    
    

    
    KAP would be helpful here. Directives like "concurrentize"
    and "parallel region" etc. Look around in the KAP notes
    (NICCTR::NOTES$LIBRARY:KAP-USERS.NOTE).
    
    /Ake
    

Patti, if you need it in shipping product today, you need to use KAP.
Translating the directives to KAP directives is not trivial, but shouldn't be
very hard.

If you are willing to use internal-field-test compilers, boy, have we got a deal
for you! (or we will Real Soon Now).

Can we get a copy of the sources? We're real interested in getting test cases.
I'd even probably translate Sun's directives into ours for you...
------------------

    you have a deal!!!!  We can make the sources available - just let me
    know!
    
    Patti
    

I have the modifed sources available on mink.zko.dec.com
in ~pieper/gem/stable/pre3d.tar

I got speedups of about 3 of a 4-processor rawhide.
I couldn't figure out a way to make kap automatically parallelize the outer loop.
-----