修正代码中的注释错误

tem3dfdtd/lib/tixing-source-upcos.f90

@@ -1,8 +1,8 @@
-!Copyright (c) 2013 by tdem.org under guide of Xiu Li(lixiu@chd.edu.cn)
-!written by Huaifeng Sun(sunhuaifeng@gmail.com) and Xushan Lu(luxushan@gmail.com)
-!Code distribution @ tdem.org or sunhuaifeng.com
+!Copyright (c) 2013 by https://git.em3d.cn/ under guide of Xiu Li(lixiu@chd.edu.cn)
+!written by Huaifeng Sun(sunhuaifeng@email.sdu.edu.cn) and Xushan Lu(luxushan@gmail.com)
+!Code distribution @ https://git.em3d.cn/
     
-!梯形波电流激发，采用升余弦开关函数和降余弦开关函数
+!���β��������������������ҿ��غ����ͽ����ҿ��غ���
 SUBROUTINE TIXING_SOURCE_UPCOS
   USE CONSTANTPARAMETERS
   USE ELECTROMAGNETIC_VARIABLES
@@ -20,16 +20,16 @@ SUBROUTINE TIXING_SOURCE_UPCOS
   SOURCE(1)=AMP*0.5*(1-COS(PI*CTIME(1)/RAISETIME))  !AMP*CTIME(1)/RAISETIME
   DO I=2,NSTOP
      CTIME(I)=CTIME(I-1)+DELT(I-1)
-     IF(CTIME(I) .LT. RAISETIME)THEN !小于raistime
+     IF(CTIME(I) .LT. RAISETIME)THEN !��raistime
         DELT(I)=RAISESTEP
         SOURCE(I)=AMP*0.5*(1-COS(PI*CTIME(I)/RAISETIME))  !AMP*CTIME(I)/RAISETIME
-     ELSEIF(CTIME(I) .GE. RAISETIME .AND. CTIME(I) .LT. RAISETIME+WAVE-TIME_RAMP2WAVE_SUM)THEN  !RAISETIME小于等于CTIME(I)<RAISETIME+WAVE-TIME_RAMP2WAVE_SUM
+     ELSEIF(CTIME(I) .GE. RAISETIME .AND. CTIME(I) .LT. RAISETIME+WAVE-TIME_RAMP2WAVE_SUM)THEN  !RAISETIMEС�ڵ���CTIME(I)<RAISETIME+WAVE-TIME_RAMP2WAVE_SUM
         DELT(I)=DELT(I-1)*1.0005
         IF(DELT(I) .GE. WAVESTEP)THEN
            DELT(I)=WAVESTEP
         ENDIF
         SOURCE(I)=AMP  !1.0D0
-     ELSEIF(CTIME(I) .GE. RAISETIME+WAVE-TIME_RAMP2WAVE_SUM .AND. CTIME(I) .LT. RAISETIME+WAVE)THEN !RAISETIME+WAVE-TIME_RAMP2WAVE_SUM小于等于CTIME(I)<RAISETIME+WAVE
+     ELSEIF(CTIME(I) .GE. RAISETIME+WAVE-TIME_RAMP2WAVE_SUM .AND. CTIME(I) .LT. RAISETIME+WAVE)THEN !RAISETIME+WAVE-TIME_RAMP2WAVE_SUMС�ڵ���CTIME(I)<RAISETIME+WAVE
         DELT(I)=DELT(I-1)*0.9995
         IF(DELT(I) .LE. RAMPSTEP)THEN
            DELT(I)=RAMPSTEP