Newsgroups: comp.parallel.pvm
From: bslee@aerolab5.snu.ac.kr (Lee Bosung)
Subject: [Q] I have some questions about message sending.
Organization: SNU,KOREA
Date: Tue, 25 Jul 95 01:40:27 GMT
Message-ID: <1995Jul25.014027.23746@news.snu.ac.kr>

I have some questions about message packing and sending.
I have installed PVM3.3.1 on SUN OS 4.1.3 and Linux System.
In my program,

send :

    nfy = 100
    ....
    call pvmfinitsend(PvmDataDefault, bufid)
    call pvmfpack(REAL8, p(1,1), nfy-1, 1, info)
    call pvmfsend(left,  msgtag, info)

receive :

     call pvmfrecv(right, msgtag, bufid)
     call pvmfunpack(REAL8, p(nfx,1), nfy-1, 1, info)

In my thought, sending (nfy-1)*8 byte, but only receiving nfy-1 byte.
So, I have lost information....
But, sometimes no problem...

If I edit my code like below, No problems.

send :

    nfy = 100
    ....
    call pvmfinitsend(PvmDataDefault, bufid)
    call pvmfpack(REAL8, p(1,1), (nfy-1)*8, 1, info)
    call pvmfsend(left,  msgtag, info)

receive :

     call pvmfrecv(right, msgtag, bufid)
     call pvmfunpack(REAL8, p(nfx,1), (nfy-1)*8, 1, info)

Help me...






