prism_initialized (flag, ierror)
This routine checks if prism_init has been called before. If flag is true, prism_init was successfully called; if flag is false, prism_init was not called yet.