Subject: Re: your mail

From: Zheng Gengbin <[email-masked]>
Date: Thu, 29 May 1997 10:11:18 +0800 (EAT)

the output here is just the same as this one . so , it is clear
that the new version of Adlib must have some bug on remap , or you make
some wrong time stamp and gave the wrong files . so , please send me
a new Adlib .

Gengbin

On Wed, 28 May 1997, Guansong Zhang wrote:

> The following is hpf2nf output for the program you send me. See if there are
> any difference on you machine.
> 
>       program main
>       integer :: pcrc_dad_x,pcrc_dad_y
>       integer :: pcrc_sdd0,pcrc_sdd1
>       integer :: pcrc_tbs1
>       integer :: pcrc_tdd1
>       integer :: pcrc_irg0
>       integer :: pcrc_lil_I,pcrc_liu_I,pcrc_lis_I
>       integer :: pcrc_u00
>       integer :: pcrc_v00
>       integer :: pcrc_sdx0
>       include 'pcrc.inc'
>       real :: y(0:99)
>       real :: x(0:99)
>       integer :: pcrc_rng_TY(1)
>       integer :: pcrc_rng_TX(1)
>       integer :: pcrc_grp_P
>       integer :: pcrc_shp_P(1)
>       call pcrc_init ()
>       pcrc_shp_P(1) = 4
>       pcrc_grp_P = pcrc_new_group_grid (1,pcrc_shp_P)
>       pcrc_rng_TY(1) = pcrc_new_range_distribute ((-200),199,1,pcrc_grp_&
>      &P,1)
>       pcrc_rng_TX(1) = pcrc_new_range_distribute (1,400,1,pcrc_grp_P,1)
>       pcrc_dad_y = pcrc_new_array_data (y,pcrc_real,pcrc_size_real,1,pcr&
>      &c_grp_P)
>       call pcrc_set_array_align (pcrc_dad_y,1,1,100,3,(-150),0,0,pcrc_rn&
>      &g_TY(1))
>       pcrc_dad_x = pcrc_new_array_data (x,pcrc_real,pcrc_size_real,1,pcr&
>      &c_grp_P)
>       call pcrc_set_array_align (pcrc_dad_x,1,2,99,2,1,0,0,pcrc_rng_TX(1&
>      &))
>       pcrc_irg0 = pcrc_new_range_loop (2,99,1,1,0,pcrc_range (pcrc_dad_x&
>      &,1))
>       call pcrc_loop_bounds (pcrc_irg0,pcrc_lil_I,pcrc_liu_I,pcrc_lis_I)
> 
>       pcrc_sdd0 = pcrc_new_array_section (1,pcrc_dad_x)
>       call pcrc_set_array_triplet (pcrc_sdd0,1,2,99,1,pcrc_dad_x,1)
>       call pcrc_coef (pcrc_dad_x,1,2,99,1,1,0,0,pcrc_u00,pcrc_v00)
>       pcrc_sdd1 = pcrc_new_array_section (1,pcrc_dad_y)
>       call pcrc_set_array_triplet (pcrc_sdd1,1,3,100,1,pcrc_dad_y,1)
>       pcrc_tdd1 = pcrc_new_array_section (1,pcrc_dad_x)
>       call pcrc_set_array_triplet (pcrc_tdd1,1,2,99,1,pcrc_dad_x,1)
>       pcrc_tbs1 = pcrc_real_alloc (pcrc_size (pcrc_tdd1))
>       call pcrc_reset_array_base (pcrc_tdd1,pcrc_real_stack(pcrc_tbs1))
>       call pcrc_remap (pcrc_tdd1,pcrc_sdd1)
>       if (pcrc_on (pcrc_group (pcrc_sdd0))) then
>          do  I=0,(pcrc_liu_I-pcrc_lil_I)/pcrc_lis_I,1
>             pcrc_sdx0 = pcrc_v00+pcrc_u00*I
>             x(pcrc_sdx0) = pcrc_real_stack(pcrc_tbs1+pcrc_sdx0)
>          enddo
>       endif
>       call pcrc_real_free (pcrc_tbs1)
>       call pcrc_delete_array (pcrc_tdd1)
>       call pcrc_delete_array (pcrc_sdd1)
>       call pcrc_delete_array (pcrc_sdd0)
>       call pcrc_delete_range (pcrc_irg0)
>       call pcrc_delete_array (pcrc_dad_x)
>       call pcrc_delete_array (pcrc_dad_y)
>       call pcrc_delete_range (pcrc_rng_TX(1))
>       call pcrc_delete_range (pcrc_rng_TY(1))
>       call pcrc_delete_group (pcrc_grp_P)
>       call pcrc_finalize ()
>       end program
>