各位大神请赐教

我在看的一个程序问题可以抽象成下面着个实验程序

implicit real*8(a-h,o-z)
complex*16 am(3)
integer::n
read(*,*)n
call change(n,am(1))
write(*,*) am(1)
end
subroutine change(i,ii)
integer::i,ii
ii=i
return
end
我跟给我提供程序的人都是用的IVF2011编译器，结果程序在那个人上面能够调试成功而且还有.vfproj文件。在我的电脑上总是出现实参虚参类型不同的错误，完全不能运行。请问各位大神，怎么在保证am是复数数组的情况下，这个子程序能够调用成功。万谢了~

我在fortran powerstation 4.0上面是警告，可以运行，但是输出的是实型，也不是整型啊