/***************************************************************************
                 module classe solsor_gc1_x_r.h  -  description
***************************************************************************/
// Julien Brajard
// locean-ipsl.upmc, Paris, April 25, 2011
//===========================================================================
//                          methode forward
forward (YREAL x1, YREAL x2, YREAL x3, YREAL x4)
{
/*  	1	from	solsor_gcx_gcr		2  i 	j    k	  t
     	2	from	solsor_flag		2  NX 	NY    k-1  t
	3	from	solsor_flag		1  i-1 	NY    k  t
	4	from	solsor_flag		1  i 	j-1  k  t
} 
output 1 : resmax
oupput 2 : flag (0 -> continue; 1 -> stop)

*/