The function is called by:
call ExpecLong( long(int2) )
int2
INTEGER*2
Input
Return value
INTEGER*4
Output
