vzestc.c

su 的源代码库

/* Copyright (c) Colorado School of Mines, 2006.*/
/* All rights reserved.                       */

#include <stdio.h>
#include <stdlib.h>
#include <malloc.h>
#include<math.h>

void forsub_(int *,int *,int *);

int main (argc, argv)

     int argc;
     char *argv[];
{
     int ipass, nbufmax;
     int *buf=NULL;

     ipass = 1;
     forsub_ (&ipass, &nbufmax, buf);  
     buf = (int *) malloc (sizeof (int) * nbufmax);
     if (buf == NULL) exit(1);
     else {
       ipass = 2;
       forsub_ (&ipass, &nbufmax, buf);
       exit(0);
     }
     return ipass;
}

double acoshf_(double * x)
{
  return acosh(*x);
}