progcond_c.c File Reference

#include "hardware.inc"
#include "c_header.inc"
#include <stdio.h>

Go to the source code of this file.

Functions
void	progcond_c (int *icur, int *imax, int *iproc, int *ilvl, int *id, int *istep)
void _FCALL	PROGCOND_C (int *icur, int *imax, int *iproc, int *ilvl, int *id, int *istep)
void	progcond_c_ (int *icur, int *imax, int *iproc, int *ilvl, int *id, int *istep)
void	progcond_c__ (int *icur, int *imax, int *iproc, int *ilvl, int *id, int *istep)
void	progcondp_c (int *icur, int *imax, int *iproc, int *id)
void _FCALL	PROGCONDP_C (int *icur, int *imax, int *iproc, int *id)
void	progcondp_c_ (int *icur, int *imax, int *iproc, int *id)
void	progcondp_c__ (int *icur, int *imax, int *iproc, int *id)

Function Documentation

PROGCOND_C()

void _FCALL PROGCOND_C	(	int *	icur,
		int *	imax,
		int *	iproc,
		int *	ilvl,
		int *	id,
		int *	istep )

Definition at line 45 of file progcond_c.c.

{
    progcond_c(icur, imax, iproc, ilvl, id, istep) ;
}

progcond_c()

void progcond_c	(	int *	icur,
		int *	imax,
		int *	iproc,
		int *	ilvl,
		int *	id,
		int *	istep )

Definition at line 30 of file progcond_c.c.

{
    char outline[80];
    double percent ;
    
    percent=(double)(*icur) / *imax * 100 ;
    if (*istep == 0) {sprintf(outline,"%s%4d%s%4d%s%4d%s%5.1f%s","   SUBGRAPH: ",*iproc," LEVEL: ",*ilvl," SUP-ELEM: ",*id," - ",percent,"%               ") ;}
    else if (*istep == 1) {sprintf(outline,"%s%4d%s%4d%s%4d%s%5.1f%s","   SUBGRAPH: ",*iproc," LEVEL: ",*ilvl," SUP-ELEM: ",*id," - ",percent,"% - EXTRACTION  ") ;}
    else if (*istep == 2) {sprintf(outline,"%s%4d%s%4d%s%4d%s%5.1f%s","   SUBGRAPH: ",*iproc," LEVEL: ",*ilvl," SUP-ELEM: ",*id," - ",percent,"% - RESOLUTION  ") ;}
    else if (*istep == 3) {sprintf(outline,"%s%4d%s%4d%s%4d%s%5.1f%s","   SUBGRAPH: ",*iproc," LEVEL: ",*ilvl," SUP-ELEM: ",*id," - ",percent,"% - CONDENSATION") ;}
    fprintf(stdout,"\r%s",outline) ;
    if (*icur == *imax && (*istep == 0 || *istep == 3)) {fprintf(stdout,"\r%s%4d%s\n","   SUBGRAPH: ",*iproc," - COMPLETE                                        ") ;}
    fflush(stdout) ;
}

progcond_c_()

void progcond_c_	(	int *	icur,
		int *	imax,
		int *	iproc,
		int *	ilvl,
		int *	id,
		int *	istep )

Definition at line 49 of file progcond_c.c.

{
    progcond_c(icur, imax, iproc, ilvl, id, istep) ;
}

progcond_c__()

void progcond_c__	(	int *	icur,
		int *	imax,
		int *	iproc,
		int *	ilvl,
		int *	id,
		int *	istep )

Definition at line 53 of file progcond_c.c.

{
    progcond_c(icur, imax, iproc, ilvl, id, istep) ;
}

PROGCONDP_C()

void _FCALL PROGCONDP_C	(	int *	icur,
		int *	imax,
		int *	iproc,
		int *	id )

Definition at line 85 of file progcond_c.c.

{
    progcondp_c(icur, imax, iproc, id) ;
}

progcondp_c()

void progcondp_c	(	int *	icur,
		int *	imax,
		int *	iproc,
		int *	id )

Definition at line 61 of file progcond_c.c.

{
     char outline[11];
     double percent ;
     char ctab[80] ;
     int i,j ;
     
     percent=(double)(*icur) / *imax * 100 ;
     ctab[0]='\r' ;
     for (i=1;i<(*iproc);i++) {j=2*(i-1)+1 ;
                             ctab[j]='\t' ;
                             j=2*i ;
                             ctab[j]='\t';}
     j=2 * (*iproc - 1) + 1 ;
     ctab[j]='%' ;
     j+=1 ;
     ctab[j]='s' ;
     j+=1 ;
     ctab[j]='\0' ;
     sprintf(outline,"%s%2d%s%3.0f%s","P ",*iproc," ",percent,"% ") ;
     fprintf(stdout,ctab,outline) ;
     fflush(stdout) ;
}

progcondp_c_()

void progcondp_c_	(	int *	icur,
		int *	imax,
		int *	iproc,
		int *	id )

Definition at line 89 of file progcond_c.c.

{
    progcondp_c(icur, imax, iproc, id) ;
}

progcondp_c__()

void progcondp_c__	(	int *	icur,
		int *	imax,
		int *	iproc,
		int *	id )

Definition at line 93 of file progcond_c.c.

{
    progcondp_c(icur, imax, iproc, id) ;
}