Character length argument mismatch problem

[Wee_Beng_T_]

Hi,

I've no problem compiling when my assigned character variable is longer than the actual. However, in ifort linux, I got the error msg:

Character length argument mismatch.

My subroutine is something like:

subroutine cp_cal(filename)

character, intent(in) :: filename

...

end subroutine cp_cal

My filename's length is not fixed. It can be

call cp_cal(4.txt) or call cp_cal(cp4.txt).

How do I solve this problem? thanks

[Steven_L_Intel1]

What you have declared is a character argument of length one. What you want is:

character (*)

This will take on the length of the argument and that was passed.

[Wee_Beng_T_]

oic ... thanks alot!

[Wee_Beng_T_]

Ya it worked. Tks!