int COGPIN(_fcd name,int *val)
{
if (coSendFTN(GET_SC_PARA_INT,_fcdtocp(name),_fcdlen(name)))
return -1;
return coGetParaScaInt(val);
}
int COGVFL(char *name, float *val, int length)
{
if (coSendFTN(GET_V3_PARA_FLO, name, length))
{
return -1;
}
return coGetParaVecFlo(val);
}
int COGPFL(char *name, float *val, int length)
{
if (coSendFTN(GET_SC_PARA_FLO, name, length))
{
return -1;
}
return coGetParaScaFlo(val);
}
int COPAPO(_fcd portName, const int *isCellData)
{
int32 data = *isCellData;
if (coSendFTN(PARA_PORT, _fcdtocp(portName), _fcdlen(portName)))
return -1;
if (sendData((void *)&data, sizeof(data)) != sizeof(data))
return -1;
else
return 0;
}
int COPAPO(const char *portName, const int *isCellData, int length)
{
int32 data = *isCellData;
if (coSendFTN(PARA_PORT,portName,length)) return -1;
if (sendData((void*)&data,sizeof(data),BSWP_MUSTSWAP) != sizeof(data) )
return -1;
else
return 0;
}
int COGPFI(const char *name, char *data, int lenNane, int lenData)
{
char buffer[256];
int i;
if (coSendFTN(GET_FILE_PARA,name,lenNane))
return -1;
if ( recvData((void*)&buffer,256,BSWP_DONTSWAP) != 256 )
return -1;
strcpy(data,buffer);
for (i=strlen(buffer);i<256;i++) /* FORTRAN is blank padded */
data[i]=' ';
return 0;
}
int COATTR(_fcd pn, _fcd an, _fcd av)
{
char buf[1024], *bPtr;
int32 i;
const char *portName = _fcdtocp(pn);
int poLen = _fcdlen(pn);
const char *attrName = _fcdtocp(an);
int naLen = _fcdlen(an);
const char *attrVal = _fcdtocp(av);
int vaLen = _fcdlen(av);
#else
int COATTR(const char *portName, const char *attrName, const char *attrVal,
int poLen, int naLen, int vaLen)
{
char buf[1024];
int32 i;
#endif
if (coSendFTN(ATTRIBUTE, portName, poLen))
return -1;
if (naLen > 1023 || vaLen > 1023)
return -1;
/* copy name to buffer and remove blanks */
strncpy(buf, attrName, naLen);
buf[naLen] = '\0';
i = naLen - 1;
while (i >= 0 && buf[i] == ' ') /* not used isspace() : allow \t */
{
buf[i] = '\0';
i--;
}
if (sendData((void *)&buf, 1024) != 1024)
return -1;
/* copy name to buffer and remove blanks */
strncpy(buf, attrVal, vaLen);
buf[vaLen] = '\0';
i = vaLen - 1;
while (i >= 0 && buf[i] == ' ') /* not used isspace() : allow \t */
{
buf[i] = '\0';
i--;
}
if (sendData((void *)&buf, 1024) != 1024)
return -1;
return 0;
}
int COGOFI(_fcd name, _fcd strdata)
{
char buffer[256], *data;
int i;
data = _fcdtocp(strdata);
if (coSendFTN(GET_FILE_PARA, _fcdtocp(name), _fcdlen(name)))
return -1;
if (recvData((void *)&buffer, 256) != 256)
return -1;
strcpy(data, buffer);
for (i = strlen(buffer); i < 256; i++) /* FORTRAN is blank padded */
data[i] = ' ';
return 0;
}
int COGPTX(const char *name, char *data, int lenName, int lenData)
{
char buffer[256];
int i;
if (lenData > 256)
lenData = 256;
if (coSendFTN(GET_TEXT_PARA, name, lenName))
return -1;
if (recvData((void *)&buffer, 256) != 256)
return -1;
strncpy(data, buffer, lenData);
for (i = strlen(buffer); i < lenData; i++) /* FORTRAN is blank padded */
data[i] = ' ';
return 0;
}
int COSU1D(const char *portName, int *numElem, float *data, int length)
{
if (coSendFTN(SEND_1DATA, portName, length))
return -1;
return coSend1DataCommon(*numElem, data);
}
int COSU1D(_fcd portName, int *numElem, float *data)
{
if (coSendFTN(SEND_1DATA, _fcdtocp(portName), _fcdlen(portName)))
return -1;
return coSend1DataCommon(*numElem, data);
}
int COGPBO(char *name, int *val, int length)
{
if (coSendFTN(GET_BOOL_PARA, name, length))
return -1;
return coGetParaBo(val);
}
int COGPBO(_fcd name, int *val)
{
if (coSendFTN(GET_BOOL_PARA, _fcdtocp(name), _fcdlen(name)))
return -1;
return coGetParaBo(val);
}
int COGPCH(char *name, int *val, int length)
{
if (coSendFTN(GET_CHOICE_PARA, name, length))
return -1;
return coGetParaCh(val);
}
int COGPCH(_fcd name, int *val)
{
if (coSendFTN(GET_CHOICE_PARA, _fcdtocp(name), _fcdlen(name)))
return -1;
return coGetParaCh(val);
}
int COSU3D(_fcd portName, int *numElem, float *data0, float *data1, float *data2)
{
if (coSendFTN(SEND_3DATA, _fcdtocp(portName), _fcdlen(portName)))
return -1;
return coSend3DataCommon(*numElem, data0, data1, data2);
}
int COGVFL(_fcd name, float *val)
{
if (coSendFTN(GET_V3_PARA_FLO, _fcdtocp(name), _fcdlen(name)))
return -1;
return coGetParaVecFlo(val);
}
int COGPSL(_fcd name, float *min, float *max, float *val)
{
if (coSendFTN(GET_SLI_PARA, _fcdtocp(name), _fcdlen(name)))
return -1;
return coGetParaSli(min, max, val);
}
int COGPFL(_fcd name, float *val)
{
if (coSendFTN(GET_SC_PARA_FLO, _fcdtocp(name), _fcdlen(name)))
return -1;
return coGetParaScaFlo(val);
}
int COGPSL(char *name, float *min, float *max, float *val, int length)
{
if (coSendFTN(GET_SLI_PARA, name, length))
return -1;
return coGetParaSli(min, max, val);
}
int COSU3D(const char *portName, int *numElem, float *data0, float *data1, float *data2, int length)
{
if (coSendFTN(SEND_3DATA, portName, length))
return -1;
return coSend3DataCommon(*numElem, data0, data1, data2);
}
int COGPIN(char *name, int *val, int length)
{
if (coSendFTN(GET_SC_PARA_INT, name, length))
return -1;
return coGetParaScaInt(val);
}
