/*====================================================================================
! Purpose(s): 
!
! Contain(s): cstress
!
! Author(s):  Javier Lopez Lara (jav.lopez@unican.es)
!             Gabriel Barajas   (barajasg@unican.es)
!====================================================================================*/
#include "CMisc.h"

#ifdef __INTEL_COMPILER
#define PYM cstress
#else 
#define PYM cstress_
#endif

extern "C"  void _FORTRAN PYM ( _DOUBLE_ARRAY AAC, _DOUBLE_ARRAY AAR, _DOUBLE_ARRAY AAT,  
	                       	     _DOUBLE_ARRAY AU, _DOUBLE_ARRAY AV, _DOUBLE_ARRAY AXNut, 
		                     _DOUBLE_ARRAY ATauxx, _DOUBLE_ARRAY ATauyy, _DOUBLE_ARRAY ATauxy,  
                        	     _DOUBLE_ARRAY ATauxxTurb, _DOUBLE_ARRAY ATauyyTurb, _DOUBLE_ARRAY ATauxyTurb, 
                        	     _DOUBLE_ARRAY APorosity, _DOUBLE_ARRAY AK, _DOUBLE_ARRAY AEp, _DOUBLE_ARRAY AF, 
                        	     _DOUBLE_ARRAY AUtmp, _DOUBLE_ARRAY AVtmp,                          
                        	     _DOUBLE_ARRAY AXCoefs, _DOUBLE_ARRAY AYCoefs, _DOUBLE_ARRAY AXi, _DOUBLE_ARRAY AYj, _DOUBLE_ARRAY ADelX, _DOUBLE_ARRAY ADelY,	 
	                             _DOUBLE AMu, _DOUBLE ANu, _DOUBLE Asd, _INT Anks, 
                        	     _DOUBLE ARhoF, _INT AKb, _INT AKt, _INT AKl, _INT AKr, _INT AIMax, _INT AJMax, 
		                     _INT_ARRAY ANf, _INT Aim1, _INT Ajm1, _INT AKEpModel, _INT Anrough);