Cannot understand the code

See more:

FORTAN

In this part of code my compiler gives Error: Invalid character in name.

I cannot understand the sense of this operator * *, is it cycle of multiplication?

do i_lamda = 1, n_lamda_num ! Find and remember characteristic determinant members
                                  ! В этой записи ошибочно записаны TAU вместо 1 / TAU
        r_lamda = r_lamda_beg + (i_lamda - 1) * r_lamda_step
        r_memb_det(1,i_lamda) = -1.0 * (dx(1) % tau_sutky  + r_lamda)
     *                               * (dx(2) % tau_sutky  + r_lamda)
     *                               * (dx(3) % tau_sutky  + r_lamda)
     *                               * (dx(4) % tau_sutky  + r_lamda)
     *                               * (dx(5) % tau_sutky  + r_lamda)
        r_memb_det(2,i_lamda) = -1.0 * (dx(5) % tau_sutky  + r_lamda)

THe same this is about write:

write (nf_res,'(5x,2a/)') 'Values alf_down by sections'
     *                           , ' from 1 to 5:'

What I have tried:

I deleted * * and that helped for write. But for the first part I cant cantch the sence itself.