***************
*** 180,189 ****
  
   
  
! #if defined CRAY
  oid GETBIAS(double *rg, double *krg, double *rho, double *krho) {
   else
 ! #if defined IBM
  oid getbias(double *rg, double *krg, double *rho, double *krho) {
   else
   oid getbias_(double *rg, double *krg, double *rho, double *krho) {
 --- 180,189 ----
  
   
  
! #if defined CRAY || defined CLINK_CAPS
  oid GETBIAS(double *rg, double *krg, double *rho, double *krho) {
   else
 ! #if defined IBM || defined CLINK_PLAIN
  oid getbias(double *rg, double *krg, double *rho, double *krho) {
   else
   oid getbias_(double *rg, double *krg, double *rho, double *krho) {
 ***************
*** 195,206 ****
   *krho=rhoforce;
  
   
! #if defined CRAY
  ouble NEWTEMP(char *svname, char *svport, char *svid, char *jid, char *dir,
           double *energy, double *rg, double *rho, int *sendfiles,
          int lensvname, int lensvport, int lensvid, int lenjid, int lendir) {
  else
 ! #if defined IBM
  ouble newtemp(char *svname, char *svport, char *svid, char *jid, char *dir,
           double *energy, double *rg, double *rho, int *sendfiles,
          int lensvname, int lensvport, int lensvid, int lenjid, int lendir) {
--- 195,206 ----
   *krho=rhoforce;
  
   
! #if defined CRAY || defined CLINK_CAPS
  ouble NEWTEMP(char *svname, char *svport, char *svid, char *jid, char *dir,
           double *energy, double *rg, double *rho, int *sendfiles,
          int lensvname, int lensvport, int lensvid, int lenjid, int lendir) {
  else
 ! #if defined IBM || defined CLINK_PLAIN
  ouble newtemp(char *svname, char *svport, char *svid, char *jid, char *dir,
           double *energy, double *rg, double *rho, int *sendfiles,
          int lensvname, int lensvport, int lensvid, int lenjid, int lendir) {
***************
*** 301,312 ****
  
   
  
! #ifdef CRAY
  ouble NEXTCONF(char *svname, char *svport, char *svid, char *jid, char *dir,
        double *energy, double *ecent, double *etemp, int *sendfiles,
       int lensvname, int lensvport, int lensvid, int lenjid, int lendir) {
  else
 ! #if defined IBM
  ouble nextconf(char *svname, char *svport, char *svid, char *jid, char *dir,
        double *energy, double *ecent, double *etemp, int *sendfiles,
       int lensvname, int lensvport, int lensvid, int lenjid, int lendir) {
--- 301,312 ----
  
   
  
! #if defined CRAY || defined CLINK_CAPS
  ouble NEXTCONF(char *svname, char *svport, char *svid, char *jid, char *dir,
        double *energy, double *ecent, double *etemp, int *sendfiles,
       int lensvname, int lensvport, int lensvid, int lenjid, int lendir) {
  else
 ! #if defined IBM || defined CLINK_PLAIN
  ouble nextconf(char *svname, char *svport, char *svid, char *jid, char *dir,
        double *energy, double *ecent, double *etemp, int *sendfiles,
       int lensvname, int lensvport, int lensvid, int lenjid, int lendir) {