#include "cfortran.h"

void profastinit(char*, long*, long*);

FCALLSCSUB3(profastinit,PROFASTINIT,profastinit,PSTRING,PLONG,PLONG)