Searched refs:ZBEG (Results 1 – 2 of 2) sorted by relevance
2723 COMPLEX*16 ZBEG local2724 EXTERNAL ZBEG2743 A( I, J ) = ZBEG( RESET ) + TRANSL3100 COMPLEX*16 FUNCTION ZBEG( RESET ) function3146 ZBEG = DCMPLX( ( I - 500 )/1001.0D0, ( J - 500 )/1001.0D0 )
2913 COMPLEX*16 ZBEG local2914 EXTERNAL ZBEG2932 A( I, J ) = ZBEG( RESET ) + TRANSL3287 COMPLEX*16 FUNCTION ZBEG( RESET ) function3335 ZBEG = DCMPLX( ( I - 500 )/1001.0D0, ( J - 500 )/1001.0D0 )