J = J+1

XPosición (1,1) = 0.0
YPósition (1,1) =0.5
I=1
J=1
PieDerecho = .true.
PieIzquierdo = .false.
10 continue
If (masculino .eq. true) then
        Pie=PieDerecho
else
        Pie=PieIzquierdo
endif

Do I=1,3
        If (masculino .eq. true. ) then
                contacto_con_piso = talón
        else
                contacto_con_piso = punta_del_pie
        endif
        If (I .not. 3) then 
            ritmo = lento 
        else
            ritmo = rapido 
        endif
        XPosición (I,J) = XPosición (I-1,J) + Schrittweite
        YPositción (I,J) = YPosición (I-1,J)
        If  (Pie .eq. PieDerecho) then 
                       Pie=PieIzquierdo
        else
                        Pie=PieDerecho
        endif
        If (contacto_con_piso .eq. talón) then
                contacto_con_piso = punta_del_pie
        else
                contacto_con_piso = talón 
        endif
Enddo
I = I+1
Cerrar

If  (Pie .eq. PieDerecho) then 
                Pie = PieIzquierdo 
        else
                        Pie = PieDerecho 
        endif

contacto_con_piso = planta 
XPosición (I,J) = XPosición (I-1,J-1)
YPosición (I,J) = YPosición (I-1,J-1) - ancho_del_paso 
goto 10
stop
end