这是C程序 ，哪位大侠能帮转换成FORTRAN程序 ，万分感谢！
void SETARA(long *base, long *length, long *iof)
{
char *nomsub="SETARA";
long *kaddr;
int lentot, i;


lentot = (*length * 4 ) + 4*4 ;
kaddr = (long *)malloc(lentot);
if (kaddr == 0) {
sprintf(AbortString,"%s: invalid return code %ld length=%d",nomsub,(long)kaddr,lentot);
XABORT(AbortString,strlen(AbortString));
}
*iof = kaddr - base + 3;
#if defined(zero)
for (i=0; i < *length; i++) base[*iof + i - 1] = 0.0;
#endif
base[*iof - 2] = *length + 2;
base[*iof - 3] = *length + 2;
base[*iof + *length - 1] = *length + 2;
base[*iof + *length ] = *length + 2;
return;
}