iofuncs.c

阐述了建立物质本构关系时应满足的基本公理, 较详细地推导了各种类型粘 弹性物质的本构关系, 论述了变率理论与泛函理论之间的关系, 推导了对于粘弹性问题 求解具有实用意义的对应定理, 并以简单的例子

#include <stdio.h>

void write_data_(data,numbytes,file_ptr)
    long *data;
    long *numbytes;
    long *file_ptr;
{
    fwrite(data,1,*numbytes,(FILE *) *file_ptr);
}

int read_data_(data,numbytes,file_ptr)
    long *data;
    long *numbytes;
    long *file_ptr;
{
    return(fread(data,1,*numbytes,(FILE *) *file_ptr));
}

long open_file_(name, status, namlen)
    char *name;
    int *status;
    int	 namlen;
{
    char *tmp;
    FILE *fp;

    tmp = (char *) malloc(namlen+1);
    strncpy(tmp, name, namlen);
    tmp[namlen] = 0;
    tmp[strcspn(tmp," \t\r\n")]=0;

    if (*status == 1) {
	fp = fopen(tmp,"w");
    } else {
	if (*status == 2) {
	    fp = fopen(tmp,"w+");
	} else {
            fp = fopen(tmp,"r");
        }
    }
    if (!fp) {
        perror("Error in open");
    }
    free(tmp);
    return (long) fp;
}


void close_file_(fp)
    int *fp;
{
    fclose((FILE *) *fp);
}

void rewind_file_(fp)
    int *fp;
{
    rewind((FILE *) *fp);
}