Newsgroups: comp.parallel.pvm
From: Kwon Yun Han <archi90@pc021216.yeungnam.ac.kr>
Subject: win32-beta6 error or bug?
Organization: Department of  Architectural Engineering, Yeungnam University
Date: Tue, 28 Jul 1998 14:54:23 +0900
Mime-Version: 1.0
Content-Type: multipart/alternative; boundary="------------F6B8538E59A3CB955EBD46B2"
Message-ID: <35BD678F.E5DC5048@pc021216.yeungnam.ac.kr>


--------------F6B8538E59A3CB955EBD46B2
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit

1. In beta-6, it is possible to add only one host in pvm console, but I
can't add several host with
   hostfile.
   Otherwise, I can add in win32-beta5.

2.Compare  (PVM_ROOT)/libfpvm/pvmfpsend.m4 and
(PVM_ROOT)/libfpvm/win32/pvmfpsend.c
 and compare with PVM user's Guide Book.(page 230, 235)

Fortran Code    !!!!!!!!!
In  (PVM_ROOT)/libfpvm/win32/pvmfpsend.c, the number of parameter of
pvmfpsend and pvmfprecv is 7 and 10,  but 6 and 9  in pvmfpsend.m4 file
and Users'Guide book.
===================================================
/* $Id: pvmfpsend.m4,v 1.2 1996/10/04 15:27:29 pvmsrc Exp $ */

#include "pvm3.h"
#include "pvm_consts.h"

void
FUNCTION(pvmfpsend) ARGS(`tid, msgtag, buf, len, dt, info')
 int *tid, *msgtag, *len, *dt, *info;
 char *buf;
{
 *info = pvm_psend(*tid, *msgtag, buf, *len, *dt);
}



pvmfpsend.c Source file
/* $Id: Pvmfpsend.c,v 1.1 1997/06/27 16:29:59 pvmsrc Exp $ */

#ifdef WIN32
#include "..\..\include\pvm3.h"
#include "..\..\src\pvmwin.h"
#else
#include "pvm3.h"
#endif

#include "pvm_consts.h"

void /*__stdcall*/ __fortran
PVMFPSEND (tid, msgtag, buf, buf_len, len, dt, info)
   int *tid, *msgtag, *len, *dt, *info;
   char *buf; int buf_len;
{
   *info = pvm_psend(*tid, *msgtag, buf, *len, *dt);
}

---------------------------------------------------------------
User's Guide page 235

Fortran      call pvmfpsend( tid, msgtag, buf, len, datatype, info)
==================================================
It is equal in case Pvmfprecv


It is cause Link error with libfpvm.lib.
What do you think these?

**************************************************
 Yun-Han, Kwon
 Department of Architectural Engineering
 Yeungnam University of Kyongsan, Kyongbuk, South Korea
 E-mail : archi90@arch.yeungnam.ac.kr


--------------F6B8538E59A3CB955EBD46B2
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 7bit

<HTML>
1. In beta-6, it is possible to add only one host in pvm console, but I
can't add several host with
<BR>&nbsp;&nbsp; hostfile.
<BR>&nbsp;&nbsp; Otherwise, I can add in win32-beta5.

<P>2.Compare&nbsp; (PVM_ROOT)/libfpvm/pvmfpsend.m4 and (PVM_ROOT)/libfpvm/win32/pvmfpsend.c
<BR>&nbsp;and compare with PVM user's Guide Book.(page 230, 235)

<P>Fortran Code&nbsp;&nbsp;&nbsp; !!!!!!!!!
<BR>In&nbsp; (PVM_ROOT)/libfpvm/win32/pvmfpsend.c, the number of parameter
of pvmfpsend and pvmfprecv is 7 and 10,&nbsp; but 6 and 9&nbsp; in pvmfpsend.m4
file and Users'Guide book.
<BR>===================================================
<BR>/* $Id:<B><FONT COLOR="#990000"> pvmfpsend.m4</FONT></B>,v 1.2 1996/10/04
15:27:29 pvmsrc Exp $ */

<P>#include "pvm3.h"
<BR>#include "pvm_consts.h"

<P>void
<BR>FUNCTION(pvmfpsend) ARGS(`<B><FONT COLOR="#CC0000">tid, msgtag, buf,
len, dt, info</FONT></B>')
<BR>&nbsp;int *tid, *msgtag, *len, *dt, *info;
<BR>&nbsp;char *buf;
<BR>{
<BR>&nbsp;*info = pvm_psend(*tid, *msgtag, buf, *len, *dt);
<BR>}
<BR>&nbsp;
<BR>&nbsp;

<P>pvmfpsend.c Source file
<BR>/* $Id: <B><FONT COLOR="#3333FF">Pvmfpsend.c</FONT></B>,v 1.1 1997/06/27
16:29:59 pvmsrc Exp $ */

<P>#ifdef WIN32
<BR>#include "..\..\include\pvm3.h"
<BR>#include "..\..\src\pvmwin.h"
<BR>#else
<BR>#include "pvm3.h"
<BR>#endif

<P>#include "pvm_consts.h"

<P>void /*__stdcall*/ __fortran
<BR>PVMFPSEND (<B><FONT COLOR="#3333FF">tid, msgtag, buf, buf_len, len,
dt, info</FONT></B>)
<BR>&nbsp;&nbsp; int *tid, *msgtag, *len, *dt, *info;
<BR>&nbsp;&nbsp; char *buf; int <B><FONT COLOR="#000099">buf_len;</FONT></B>
<BR>{
<BR>&nbsp;&nbsp; *info = pvm_psend(*tid, *msgtag, buf, *len, *dt);
<BR>}

<P>---------------------------------------------------------------
<BR><B><FONT COLOR="#CC33CC">User's Guide page 235</FONT></B>

<P>Fortran&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <B><FONT COLOR="#003300">call
pvmfpsend( tid, msgtag, buf, len, datatype, info)</FONT></B>
<BR>==================================================
<BR>It is equal in case Pvmfprecv
<BR>&nbsp;

<P>It is cause Link error with libfpvm.lib.
<BR>What do you think these?

<P>**************************************************
<BR>&nbsp;Yun-Han, Kwon
<BR>&nbsp;Department of Architectural Engineering
<BR>&nbsp;Yeungnam University of Kyongsan, Kyongbuk, South Korea
<BR>&nbsp;E-mail : archi90@arch.yeungnam.ac.kr
<BR>&nbsp;</HTML>

--------------F6B8538E59A3CB955EBD46B2--


